ListView - Via einzeiler text und icon ausgeben

[Andreas L.]

Ich glaube er möchte konkret wissen wie man Einträge zu einer ListView hinzufügt. Das geht ganz einfach:

Delphi-Quellcode:

var
  NewItem: TListItem;
begin
  NewItem := ListView1.Items.Add;
  NewItem.Caption := 'Titel des Eintrags';
  NewItem.SubItems.Add('bla'); //Untereintrag hinzufügen
  NewItem.SubItems.Add('blubb'); //Noch einer
  NewItem.ImageIndex := 2; //Icon mit Index 2 (also das dritte Bild) der ImageListe die dem ListView zugewiesen wurde anzeigen
end;

Und jetzt das ganze noch als "Einzeiler":

Delphi-Quellcode:

procedure AddListViewItem(AList: TListView; ACaption: String; AImageIndex: Integer);
var
  NewItem: TListItem;
begin
  NewItem := List.Items.Add;
  NewItem.Caption := ACaption;
  NewItem.ImageIndex := AImageIndex;
end;

//Aufruf z. B. in einem ButtonOnClick-Event:
AddListViewItem(ListView1, 'Titel', 2);