Einzelnen Beitrag anzeigen

Andreas L.
(Gast)

n/a Beiträge
 
#4

AW: ListView - Via einzeiler text und icon ausgeben

  Alt 2. Nov 2010, 09:34
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);
  Mit Zitat antworten Zitat