TListbox et multiselection encore...

Version imprimable

08/02/2006, 17h00
arkhamon

TListbox et multiselection encore...

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.

salut,

Code:

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

et en faisant :

Code:

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

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

Code:

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:

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

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:

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:

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;