cs_TouTSpeed
Messages postés72Date d'inscriptionjeudi 5 janvier 2006StatutMembreDernière intervention30 août 2007
-
30 juin 2006 à 21:10
japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 2021
-
1 juil. 2006 à 12:10
bonjour,
je travail sous delphi 6,
voila j'ai plusieurs listbox (6) et je voudrais que l'ascenseur de
chaque listbox bouge en même temps et soit donc toujours au même niveau
dans chaque listbox , je précise qu'il y a le même nombre d'élément
dans chaque listbox .
je vous en remerci par avance si vous avez la solution !
procedure TForm1.ListBox1Click(Sender: TObject);
Var
i : integer;
begin
i:=ListBox1.TopIndex;
ListBox2.TopIndex:=i;
ListBox3.TopIndex:=i;
ListBox4.TopIndex:=i;
ListBox5.TopIndex:=i;
ListBox6.TopIndex:=i;
end;
cs_TouTSpeed
Messages postés72Date d'inscriptionjeudi 5 janvier 2006StatutMembreDernière intervention30 août 2007 1 juil. 2006 à 11:27
procedure TForm1.ListBox1Click(Sender: TObject);
Var
i : integer;
begin
i:=ListBox1.TopIndex;
ListBox2.TopIndex:=i;
ListBox3.TopIndex:=i;
ListBox4.TopIndex:=i;
ListBox5.TopIndex:=i;
ListBox6.TopIndex:=i;
end;
oui effectivement j'ai pensé aussi a ceci
procedure TForm1.ListBox1Click(Sender: TObject);
Var
i : integer;
j : integer;
begin
i:=ListBox1.TopIndex;
for j : = 2 to 6 do
begin
ListBox[j].TopIndex:=i; // instruction qui n'existe pas mais a mon avis mon idée
end; //est possible , mais je débute !
end;
Si quelqu'un sait comment faire pour passer d'une listbox1 à 2 par une variable qu'il le dise !
merci
Vous n’avez pas trouvé la réponse que vous recherchez ?