Dyn Button caption zuweisen?

[Bernd29bln]

Hallo,

Ich möchte meine dynamisch erstellten button beschrifften. Die Bestrieftung steht in einer Listview.

Ich hab es schon so Probiert:

Delphi-Quellcode:

  for lv:=0 to Listview2.Items.Count -1 do
   begin
    Taste[ta].Caption:= Listview2.Items[lv].SubItems[0];
   end;

Problem dabei ist, dass immer nur der letzte Eintag von der Listview in die Caption der Buttons eingetragen wird.

Weis jemand rat?

gruß Bernd

[HenKst]

Hi

Die beiden listen laufen mit verschiedenen indizes.
Du weist dem element Taste[ta], der reihe nach jedes element aus der listview zu.

Wenn die beiden Listen gleichviele Elemente haben sollte es reichen Taste[ta] durch Taste[lv] zu ersetzen.

GreeZ HenKst

[lbccaleb]

Hey, probiers mal so:

Delphi-Quellcode:

  for lv:=0 to Listview2.Items.Count -1 do
   begin
    Taste[ta].Caption:= Listview2.ItemsStrings[lv];
   end;

[Bernd29bln]

Hi,

Danke henKst es funktioniert.

gruß bernd

[HenKst]

bitteschön ;)

[Bernd29bln]

Hi,

Ich hab zu diesem Fall mal noch ne Frage. in der Listview hab ich eine spalte wo Ja und Nein drinne stehen.wie bekomme ich es hin nur die mit Ja gekennzeichneten Zeilen aus zulesen.

Habt ihr ne Idee,

Gruß bernd

[DeddyH]

Delphi-Quellcode:

for lv:=0 to Listview2.Items.Count -1 do
   begin
     if Listview2.Items[lv].SubItems[1] = 'Ja' then 
       Taste[lv].Caption:= Listview2.Items[lv].SubItems[0];
   end;

[Bernd29bln]

Vielen dank DeddyH :thumb:

[Luckie]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

for lv:=0 to Listview2.Items.Count -1 do
   begin
     if Listview2.Items[lv].SubItems[1] = 'Ja' then 
       Taste[lv].Caption:= Listview2.Items[lv].SubItems[0];
   end;

Jetztt musst du aber wahrscheinlich auf den Index für die Schaltfläche aufpassen!

[Bernd29bln]

Hi,

Ich hab nun folgendes Problem, ich möchte noch eine zusätzliche Info in der caption der buttons stehen haben. Aber es würd teilweise nicht auf alle Buttons übertragen.

Hier mal der Code:

Delphi-Quellcode:

 for i:=0 to Listview2.Items.Count -1 do
   begin
    Taste[i].Caption:= Listview2.Items.Item[i].SubItems[0] + #13 + Listview2.Items.Item[i].SubItems[2];
   end;

Woran kann es liegen?

Grß Bernd