Item in TListView hinzufügen

[gerritlober]

Hallo,

kann mir jemand sagen, wie ich einem TListView im Quelltext einen neuen Eintrag hinzufüge?
So richtig mit kleinem Icon und so?

[kiar]

hallo ist ein prima beispiel in der hilfe

raik

[gerritlober]

Ja, aber wo finde ich die, ich habe wohl schon in die Hilfe gesehen, bevor ich hier nen Eintrag geschrieben habe.

[kiar]

schau bei TListitems und dann add

hier das beispiel aus der hilfe

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

const
  Names: array[0..5, 0..1] of string = (
    ('Rubble', 'Barney'),
    ('Michael', 'Johnson'),
    ('Bunny', 'Bugs'),
    ('Silver', 'HiHo'),
    ('Simpson', 'Bart'),
    ('Squirrel', 'Rockey')
    );

var
  I: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
  ListView: TListView;
begin
  ListView := TListView.Create(Self);
  with ListView do
  begin
    Parent := Self;

    Align := alClient;
    ViewStyle := vsReport;

    NewColumn := Columns.Add;
    NewColumn.Caption := 'Last';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'First';

    for I := Low(Names) to High(Names) do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Names[I][0];
      ListItem.SubItems.Add(Names[I][1]);
    end;
  end;
end;

[Pseudemys Nelsoni]

http://www.delphipraxis.net/internal...369&highlight=