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

Hi,

markieren

Delphi-Quellcode:

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

*MFG*

Manu

Hi,

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

markieren

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

Zitat von Spider:

Hi,

markieren

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:

markieren

Delphi-Quellcode:

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

mfG
mirage228

Meine Güte,

er wird ja wohl selbst denken können oder

Ja super vielen Dank.

Es klappt.

mfg
Superior