Objekt in ListView ablegen + Zusatzspalte

[stho]

Guten morgen alle zusammen
Ich möchte ein Listview mit einem Object füllen und eine weitere spalte mit einer Information des objektes.
Momentan mache ich das so:

Delphi-Quellcode:

    with DBInhalt.ListView1 do
    begin
      AddItem(Name2.Strings[i], Laden);
      Items.Add.SubItems.add(Anzahl.Strings[i]);
    end;

jedoch kommt dann immer sowas raus:


|___INHALT___|___________|
|____________|__INHALT2__|


ich möchte das jedoch in 1 Zeile haben. wie mache ich das?

[Bernhard Geyer]

Du solltest nicht mit Items.Add dir ein neues Item besorgen sondern das vorhandene Verwenden:

Delphi-Quellcode:

  var
    Item: TTreeNode;
  begin
    ...
    with DBInhalt.ListView1 do
    begin
      Item := AddItem(Name2.Strings[i], Laden);
      Item.SubItems.add(Anzahl.Strings[i]);
    end;

[DeddyH]

Aber nimm TListItem statt TTreeNode

[Bernhard Geyer]

Zitat von DeddyH:

Aber nimm TListItem statt TTreeNode

Irgenwie war ich beim TTreeView

[stho]

Ich habe mich schomn gewundert warum es mit TTreeNode nicht geht ^^

aber wie erstelle ich das item?

mit

item := TListItem.Create(nil);
oder
item := TListItem.Create(self);

scheint es nicht zu funktionieren.

[DeddyH]

Delphi-Quellcode:

var Item: TListItem;
begin
  Item := DeineListView.Items.Add;
  Item.Caption := 'Hallo';
  Item.Data := DeinObjekt;
  Item.SubItems.Add('Welt');
end;

Müsste so funktionieren (ungetestet).