Bonjour,

J'envoye l'item d'une ListBox dans un Edit en faisant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Edit.Caption := ListBox.Items[ListBox.ItemIndex]
Malheureusement, quand je clique dans la ListBox hors une case d'un item, une erreur se déclare : Out Of Bounds. Donc j'ai rajouté :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
If ListBox.ItemIndex < ListBox.Items.Count - 1 then
  Edit.Caption := ListBox.Items[ListBox.ItemIndex]
Mais rien n'y fait.

Quelqu'un aurait-il une idée ?

Merci d'avance.

Lohot