Discussion :

[mickael.be]

Hello,

Ca peux paraitre con, mais ....... après 45 min de recherche dans :

La saisie semi automatique de delphi
Le F1
Google
La FAQ

J'ai pas trouvé...

Alors je fais appel à votre aide !

Merci

[smyley]

Code :

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

1
2
3
 
//obtenir la valeur de l'item sélectionné
 text := listBox1.Items[ listBox1.ItemIndex ];

[Archibald29]

Je trouve ceci mis de côté dans mes cartons :

procedure TForm1.FormActivate(Sender: TObject);
begin
ListBox1.Items.Add('A');
ListBox1.Items.Add('S');
ListBox1.Items.Add('B');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Form1.ListBox1.ItemIndex));
end;

a++