Text aus Listbox in Label

[Superior]

Hallo,

ich suche einen Befehl für folgendes:
Ich habe eine Listbox mit vielen Items. Ich will jetzt eine beliebige Zeile (beispielsweise die 3. Zeile) in ein Label kopieren.
Wie geht das? Könnte mir da jemand den Befehl für nennen?

Vielen Dank schon einmla im Vorraus.

mfg
Superior

[Die Muhkuh]

Hi,

Delphi-Quellcode:

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

*MFG*

Manu

[mirage228]

Hi,

da die Items der ListBox 0-basiert sind, heisst das, dass die 3. Zeile den Index = 2 hat, daher:

Delphi-Quellcode:

// aktuell ausgewählte zeile darstellen (<- ins OnClick der ListBox damit):
if ListBox1.ItemIndex > -1 then
  Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
// explizit das 3. item
  Label1.Caption := ListBox1.Items[2];

Ich hoffe das hilft Dir weiter

mfG
mirage228

[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

[Die Muhkuh]

Meine Güte,

er wird ja wohl selbst denken können oder

[Superior]

Ja super vielen Dank.

Es klappt.

mfg
Superior