Zitat von
Grolle:
Delphi-Quellcode:
procedure TForm1.ListBox1Click(Sender: TObject);
var
selected : integer;
begin
selected := SendMessage(ListBox1.Handle,LB_GETCURSEL,0,0);
Label16.Caption := (ListBox1.Items.Strings[selected]);
end;
Ich weiß ja nicht, wie das in D3 ist, aber D7 hat bei einer Listbox die
Eigenschaft Selected. Da finde ich es unglücklich, wenn mit demselben Bezeichner ein Integer deklariert wird.
Ansonsten: Es gibt (wie auch schon von Anderen weiter oben erwähnt) bei Listbox auch die Eigenschaft ItemIndex. Diese gibt dir direkt den ausgewählten Eintrag an (den Index).