Ereginis bei Klick auf Listboxitem

[Mr.borland]

du must auf das OnKlick ereigniss reagieren und mit ItemIndex abfangen.

zum Beispiel:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var  idx  : Integer;
     text : string;
begin

    idx  := ListBox1.ItemIndex;
    if idx< 0 then exit;    //fehler abfangen
    text := ListBox1.Items[idx];
    ...
    ...
end;

viel erfolg!!