Synchroniser deux listBox

Version imprimable

1 pièce(s) jointe(s)

Bonsoir à tous ,

J'ai deux listBox et je voudrais synchroniser les Items, si je clique sur le premier index ListBox1 , L'index 1 de la listBox2 sera sélectionner aussi et ainsi de suite.
J'ai essayé plusieurs code , mais le résultat est faux .
Code:

1 2 3 4 5 6 7 8 var j: integer; begin For j := 0 to ListBox1.Count - 1 do if ListBox1.Selected[j] //si on sélectionne le premier Item then ListBox2.Selected[j];// logiquement le 1er Item de la LBox1 sera séléctionner.
Code:

Listbox1.ItemIndex:= ListBox2.ItemIndex;

Ces deux code ne font pas ce que l'ont voudrait faire .
Merci pour toute suggestion.

un truc comme sa peut-être
Code:

1 2 3 4 5 Var I:Integer; Begin For I := 0 To ListBox1.Items.Count - 1 Do ListBox2.Selected[I] := ListBox1.Selected[I];
il manque := True; à ton 1er code.

Code:

ListBox2.Selected[j] := True;

Salut

Au-delà de la remarque judicieuse de ouiouioui, quelque-chose comme ça ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure SynchroListBox(ASrc, ADest: TListBox);
var
  I: Integer;
begin
  if ASrc.MultiSelect and ADest.MultiSelect then
    for I := 0 to ASrc.Items.Count - 1 do
      ADest.Selected[I] := ASrc.Selected[I];
  ADest.TopIndex := ASrc.TopIndex;
  ADest.ItemIndex := ASrc.ItemIndex;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  SynchroListBox(ListBox1, ListBox2);
end;
 
procedure TForm1.ListBox2Click(Sender: TObject);
begin
  SynchroListBox(ListBox2, ListBox1);
end;

Marche avec ou sans MultiSelect.

@+

1 pièce(s) jointe(s)

Citation:
Envoyé par ouiouioui
un truc comme sa peut-être
Code:

1 2 3 4 5 Var I:Integer; Begin For I := 0 To ListBox1.Items.Count - 1 Do ListBox2.Selected[I] := ListBox1.Selected[I];
il manque := True; à ton 1er code.

Code:

ListBox2.Selected[j] := True;
Bonsoir,

Merci oui oui oui , le code est ok mais ça mets indice hors limite ( on lis en dehors du tableau (ListBox1) ) .
Citation:
Envoyé par Cl@udius
Salut

Au-delà de la remarque judicieuse de ouiouioui, quelque-chose comme ça ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 procedure SynchroListBox(ASrc, ADest: TListBox); var I: Integer; begin if ASrc.MultiSelect and ADest.MultiSelect then for I := 0 to ASrc.Items.Count - 1 do ADest.Selected[I] := ASrc.Selected[I]; ADest.TopIndex := ASrc.TopIndex; ADest.ItemIndex := ASrc.ItemIndex; end; procedure TForm1.ListBox1Click(Sender: TObject); begin SynchroListBox(ListBox1, ListBox2); end; procedure TForm1.ListBox2Click(Sender: TObject); begin SynchroListBox(ListBox2, ListBox1); end;
Marche avec ou sans MultiSelect.

@+
Salut Claudius ;

Le Code utilisé est parfait et fonctionnel .
Je voulais ajouter et ajourné le code en ajoutant une 3 éme ListBox pour que les trois soient synchro , mais le résultat est faux , juste les 02 premiéres qui sont synchro pas la 3 éme .
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure SynchroListBox(ASrc1, ASrc2, ADest: TListBox ); var I: Integer; begin if ASrc1.MultiSelect and ASrc2.MultiSelect and ADest.MultiSelect then for I := 0 to ASrc1.Items.Count - 1 do ADest.Selected[I]:= ASrc1.Selected[I]; ADest.Selected[I]:= ASrc2.Selected[I]; ADest.TopIndex := ASrc1.TopIndex; ADest.ItemIndex := ASrc1.ItemIndex; ADest.TopIndex := ASrc2.TopIndex; ADest.ItemIndex := ASrc2.ItemIndex; end;
Merci pour vos suggestions .

Vu le code modifié à l'arrache, ce n'est pas étonnant :roll:
Code:

1 2 3 4 for I := 0 to ASrc.Items.Count - 1 do begin ADest.Selected[I] := ASrc.Selected[I]; autres instructions; end;

25/02/2011, 03h08
Marley_T
Citation:
Envoyé par qi130

Vu le code modifié à l'arrache, ce n'est pas étonnant :roll:

Code:

1 2 3 4 for I := 0 to ASrc.Items.Count - 1 do begin ADest.Selected[I] := ASrc.Selected[I]; autres instructions; end;
Bonjour qi130 ,

J'ai essayé ce code , mais les 3 listbox ne sont pas synchroniser lorsque je clique sur un Item de la première Listbox .

...:aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure SynchroListBox(ASrc, ADest1, ADest2: TListBox);
var
  I: Integer;
begin
  if ASrc.MultiSelect and ADest1.MultiSelect and ADest2.MultiSelect then
    for I := 0 to ASrc.Items.Count - 1 do
    begin
      ADest1.Selected[I] := ASrc.Selected[I];
      ADest2.Selected[I] := ASrc.Selected[I];
    end;
  ADest1.TopIndex := ASrc.TopIndex;
  ADest1.ItemIndex := ASrc.ItemIndex;
  ADest2.TopIndex := ASrc.TopIndex;
  ADest2.ItemIndex := ASrc.ItemIndex;
end;

Citation:

Envoyé par nuxtay

...:aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure SynchroListBox(ASrc, ADest1, ADest2: TListBox);
var
  I: Integer;
begin
  if ASrc.MultiSelect and ADest1.MultiSelect and ADest2.MultiSelect then
    for I := 0 to ASrc.Items.Count - 1 do
    begin
      ADest1.Selected[I] := ASrc.Selected[I];
      ADest2.Selected[I] := ASrc.Selected[I];
    end;
  ADest1.TopIndex := ASrc.TopIndex;
  ADest1.ItemIndex := ASrc.ItemIndex;
  ADest2.TopIndex := ASrc.TopIndex;
  ADest2.ItemIndex := ASrc.ItemIndex;
end;

Bonjour ,

Oui en effet j'avais oublier le begin et end;

Code:

1
2
3
4
   begin
      ADest1.Selected[I] := ASrc.Selected[I];
      ADest2.Selected[I] := ASrc.Selected[I];
    end;

Merci à toi , probléme résolu .
Merci à Claude , QI130 et à OuiOuiOui.
Bonne journée.

Il y a pourtant une FAQ Synchroniser deux ListBox
Cette exemple montre comment synchroniser l'affichage du 1er Element, en ajoutant ItemIndex, on synchronise le Focus, et la modification de la propriété Selected est effectivement la cerise sur le gateau !

Marley_T, pense à la touche F1 = Aide de Delphi, prend le temps de lire la documentation de la TListBox !
Et fais l'effort comprendre le code, il n'est pas suffisant de copier-coller sans aucune réflexion ! c'est fort dommage !

Pour éviter les Problèmes d'index, une petite modification du code de nuxtay
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 procedure SynchroListBox(ASrc, ADest1, ADest2: TListBox); var I: Integer; begin if ASrc.MultiSelect and ADest1.MultiSelect and ADest2.MultiSelect then begin for I := 0 to ASrc.Items.Count - 1 do begin if I < ADest1.Items.Count then ADest1.Selected[I] := ASrc.Selected[I]; if I < ADest2.Items.Count then ADest2.Selected[I] := ASrc.Selected[I]; end; end; ADest1.TopIndex := Min(ASrc.TopIndex, ADest1.Items.Count - 1); ADest1.ItemIndex := IfThen(ASrc.ItemIndex < ADest1.Items.Count , ASrc.ItemIndex, -1); // Si Hors limite pas de sélection ADest2.TopIndex := Min(ASrc.TopIndex, ADest2.Items.Count - 1); ADest2.ItemIndex := IfThen(ASrc.ItemIndex < ADest2.Items.Count , ASrc.ItemIndex, -1); // Si Hors limite pas de sélection end;
Math a inclure dans les uses;
Citation:
Envoyé par Marley_T
Bonjour ,
Oui en effet j'avais oublier le begin et end;
Code:

1 2 3 4 for I := 0 to ASrc1.Items.Count - 1 do ADest.Selected[I]:= ASrc1.Selected[I]; ADest.Selected[I]:= ASrc2.Selected[I];
Tu n'as vais que oublié begin end, tu as inversé Source Multiple et Destination Unique alors que c'est évidemment Source Unique vers Destination Multuple, tu as fait un double affectation de la Destination, d'où mes remarques de se poser et de réflechir ...

Citation:
Envoyé par ShaiLeTroll
Il y a pourtant une FAQ Synchroniser deux ListBox
Cette exemple montre comment synchroniser l'affichage du 1er Element, en ajoutant ItemIndex, on synchronise le Focus, et la modification de la propriété Selected est effectivement la cerise sur le gateau !

Marley_T, pense à la touche F1 = Aide de Delphi, prend le temps de lire la documentation de la TListBox !
Et fais l'effort comprendre le code, il n'est pas suffisant de copier-coller sans aucune réflexion ! c'est fort dommage !

Pour éviter les Problèmes d'index, une petite modification du code de nuxtay
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 procedure SynchroListBox(ASrc, ADest1, ADest2: TListBox); var I: Integer; begin if ASrc.MultiSelect and ADest1.MultiSelect and ADest2.MultiSelect then begin for I := 0 to ASrc.Items.Count - 1 do begin if I < ADest1.Items.Count then ADest1.Selected[I] := ASrc.Selected[I]; if I < ADest2.Items.Count then ADest2.Selected[I] := ASrc.Selected[I]; end; end; ADest1.TopIndex := Min(ASrc.TopIndex, ADest1.Items.Count - 1); ADest1.ItemIndex := IfThen(ASrc.ItemIndex < ADest1.Items.Count , ASrc.ItemIndex, -1); // Si Hors limite pas de sélection ADest2.TopIndex := Min(ASrc.TopIndex, ADest2.Items.Count - 1); ADest2.ItemIndex := IfThen(ASrc.ItemIndex < ADest2.Items.Count , ASrc.ItemIndex, -1); // Si Hors limite pas de sélection end;
Math a inclure dans les uses;

Tu n'as vais que oublié begin end, tu as inversé Source Multiple et Destination Unique alors que c'est évidemment Source Unique vers Destination Multuple, tu as fait un double affectation de la Destination, d'où mes remarques de se poser et de réflechir ...
Bonjour ShaiLeTroll,

Oui , j'avais vu la source de Nono_40( Bruno), mais je voulais créer une autre fonction plus adaptée et congrue à ce que je voulais faire .
Merci pour tes conseils et ton interventions , je te souhaite une belle journée.