ListView - Einträge eintragen

[devnull]

Hi,

ich hab eine Listview auf meine Form gezogen und kann jetzt aber keine einträge im programm vornehmen.

ViewStyle hab ich auf ViewStyle := vsReport; gesetzt ...
Zeilen,Spalte ????

Könnt ihr mir helfen ?

  Listview1.Items[4].SubItems[0] := 'a';
devnull

[Alexander]

Es wäre wohl hilfreich, wenn du noch ein paar Infos geben könntest, denn so weiß ich nihct wirklich was dein Problem ist. Spalten kannst du z.B. im OI über Column (in der Englischen Version) einrichten.

[sharkx]

öh?

Delphi-Quellcode:

ListView.Items.Item[1].Caption := 'blub';
ListView.Items.Item[1].Subitem.add 'auch blub';

meinst du des?

[devnull]

sharkx
  ListView.Items.Item[1].Subitem.add 'auch blub'; das geht nich, Subitem ist nicht definiert ...


devnull

[scp]

Zitat von devnull:

sharkx
  ListView.Items.Item[1].Subitem.add 'auch blub'; das geht nich, Subitem ist nicht definiert ...


devnull

Richtig heisst es:

  ListView.Items[1].Subitems.add('auch blub');

[sharkx]

tippfehler darfst behalten :-P

[devnull]

Also ich hab das so vor:

Ich möchte einfach in die erste Spalte [1,1],[1,2] der ersten Zeile Daten eintragen. Z. Bsp: Wörter ...
Bei Klick des Buttons möchte ich einfach in die Spalten Wörter einführen


devnull

[DelphiDeveloper]

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

[devnull]

Danke jetzt gehts

devnull