Discussion :

[Marley_T]

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 :

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

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 :

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

Listbox1.ItemIndex:= ListBox2.ItemIndex;

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

[ouiouioui]

un truc comme sa peut-être

Code :

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

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 :

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

ListBox2.Selected[j] := True;

[Cl@udius]

Salut

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

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
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.

@+

[Marley_T]

un truc comme sa peut-être

Code :

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

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 :

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

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) ) .

Salut

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

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
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 :

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
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 .

[qi130]

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

Code :

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

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

[Marley_T]

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

Code :

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

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 .

[nuxtay]

...

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
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;

@+

[Marley_T]

...

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
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 :

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

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.

[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 :

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
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;

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

Code :

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

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 ...

[Marley_T]

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 :

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
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.