Clic dans ListBox

Bonjour,

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

Code:

---

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:

---

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

essaye sa sa marche chez moi

Code:

---

edit1.Text := listbox1.Items.Strings[listbox1.ItemIndex];

---

Code:

---

1 2	If ( ListBox.ItemIndex < ListBox.Items.Count - 1 ) and ( ListBox.ItemIndex >= 0 ) then Edit.Caption := ListBox.Items[ListBox.ItemIndex]

---

Car l'indice peut être -1 ! ;)

Merc i à alex01pernot et TicTacToe pour leur aide.

Les deux méthodes fonctionnent mais je préfère utiliser le code avec la condition car, même si elle est un peu plus lourde, elle peut être utilisée pour d'autre action que de remplir un Edit tels que transférer les items de la ListBox à une base de données (qui est mon cas).

A+

Lohot