Einzelnen Beitrag anzeigen

DelphiDeveloper

Registriert seit: 9. Apr 2003
Ort: Köln
256 Beiträge
 
Delphi XE2 Enterprise
 
#8

Re: ListView - Einträge eintragen

  Alt 27. Nov 2003, 21:39
Nehmen wir an du hast ein Listview names Listview1. auf dem formular.
Zur Designzeit hast du bereits 3 colums hinzugefügt und der Viewstyle steht auf csreport
dann geht es so:

Code:
procedure TForm1.ColorBtn1Click(Sender: TObject);
var
  ListItem: TListItem;
begin
  with ListView1 do
  begin
      ListItem := Items.Add;
      ListItem.Caption := 'zeile1';
      ListItem.SubItems.Add('erstens');
      ListItem.SubItems.Add('zweitens');

      ListItem := Items.Add;
      ListItem.Caption := 'zeile2';
      ListItem.SubItems.Add('1. spalte');
      ListItem.SubItems.Add('2. spalte');
    end;
end;
Das geheimnis ist also das TListItem!

Übrigens findest du in der OH ein ähnliches Beispiel
Mal nach TListview property items suchen
  Mit Zitat antworten Zitat