Discussion :

[arkhamon]

Bonjour

j'ai une liste (lis) contenant une serie de strings representant des langues (mettons francais,anglais) et une autre monstre.languesoffice (multiselect) contenant une autre liste de langues (mettons anglais,francais,allemand). Je vousdrais selectionner dans monstre.languesoffice les langues apparaissant dans lis. J'ai fait ca :

for i := 0 to lis.Count - 1 do
begin
sel := monstre.languesoffice.Items.IndexOf(lis.Strings[i]);
monstre.languesoffice.Selected[sel] := true;
end;
monstre.languesoffice.Refresh;

et rien n'apparait selectionne. Pourtant controle fait avec showmessahe, sel est bien superieur a 0 a chaque fois.
selected semble fonctionner en lecture mais pas en ecriture.

JE SECHE !!!!!

merci.

[HumanTool]

salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sel := monstre.languesoffice.Items.IndexOf(lis.Strings[i]); 
 monstre.languesoffice.Selected[sel] := true;

et en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 sel := monstre.languesoffice.Items.IndexOf(lis.[i]); 
 monstre.languesoffice.Selected[sel] := sel >= 0;

[arkhamon]

non a priori c'est pas bon. Mon code fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

showmessage(inttostr(sel)+lis.strings[i])

indique bien par exemple "2allemand") , sauf que les lignes se mettent pas selectionnees.

en fait il semblerait que la methode selected soit sans effet si le controle n'est pas affiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
monstre.languesoffice.Selected[1] := true; //ne fait rien si appele en dehors de la fenetre monstre
monstre.languesoffice.Selected[1] := true; // fonctionne si j'execute cette ligne a partir de monstre.edit1change(self)...

si ca peut eclairer

[OutOfRange]

re-salut
Je viens d'essayer vite fait ça qui fonctionne, même avec la commande form2.showmodal
la sélection de la listbox de form1 est modifiée lors du clic sur le bouton de form2
Il doit y avoir autre chose...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, unit2;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.showmodal;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.listbox1.Selected[1]:=true;
end;