[Lazarus] Récupérer dans une chaîne la valeur sélectionnée dans une listbox

Je veux utiliser une listbox et récupérer dans une chaine la valeur sélectionnée par un click de la souris.

Simple comme problème, mais que mettre après le : ch1:= ???

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.listboxClick(Sender: TObject); var ch1: string;   begin ch1:=listbox.; writeln(ch1); end;

---

:yaisse2: je viens de découvrir la touche F1, mais 2h plus tard :evilred: j'en suis toujours à mon ???

Avis aux Gentils "Aideurs"...

Bonjour,

Mettez un Tedit plutôt que Write ... (qui va écrire où ?)

Code:

---

1 2 3 4 5 6

procedure TForm1.ListBox1Click(Sender: TObject); var nb:integer; begin nb:=listbox1.itemindex; edit1.text:=listbox1.items[nb]; end;

---

pour avoir l'aide tapez dans la prodédure listbox1. sans faire "Entrée" et attendez..

c'est valable pour tous les objets.

Bonne journée