Bonjour,
J'envoye l'item d'une ListBox dans un Edit en faisant :
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 Edit.Caption := ListBox.Items[ListBox.ItemIndex]
Mais rien n'y fait.
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]
Quelqu'un aurait-il une idée ?
Merci d'avance.
Lohot
Partager