Text aus Listbox in Label

[mirage228]

Zitat von Spider:

Hi,

Delphi-Quellcode:

procedure {OnClick der Listbox}
begin
  Label1.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex]
end;

*MFG*

Manu

Und wenn nichts gewählt und der Index daher = -1?

Also vorher abfragen:

Delphi-Quellcode:

  if ListBox1.ItemIndex > -1 then 
    Label1.Caption := ListBox1.Items[ListBox1.ItemIndex]

mfG
mirage228