Mehrspaltige Text/Bild ListBox?

[3_of_8]

Aaalso, ich habe zwar schon gesucht, aber keine richtigen Antworten gefunden:

Ich brauche eine Listbox, mit der man einfach sowas wie im Anhang machen kann.

[Luckie]

Das ist keine Listbox, sondern ein Listview mit dem Anzeigestil Bericht.

[3_of_8]

Uuuups.
Und was ist eine ListView?

[faux]

Zitat:

Zitat von 3_of_8

Und was ist eine ListView?

Probiers einfach aus. :zwinker:
Listview ist eine Hierachische Liste, welche die selben Ansichten wie der Windows Explorer hat.

Grüße
Faux

[3_of_8]

Guuuut.

Aber ein Problem habe ich noch:

Wie füge ich ein neues Item hinzu?

[Nightshade]

Delphi-Quellcode:

var li : TListItem;

procedure AddItem;
begin
  li := ListView1.items.add;
  li.Caption := 'Text in ersten Spalte';
  li.Subitems.add('Text in zweiter spalte');
end;

[faux]

Wenn ich mich nicht täusche gehts auch einfach mit ListView1.Items.Add('Caption'). Habs aber nicht Probiert.

doch keine Grüße... :mrgreen:

[3_of_8]

Ich denke auch, dass es so geht, aber nicht mit SubItems.

@Nightshade: Wieso einfügen, bevor das festgelegt wurde? Und, muss ich es danach noch freigeben?

Am besten, ich formuliere das ganze mal anders. Ich habe ein Record:

Delphi-Quellcode:

type TBla=record
title, bla1, bla2: String;
end;

Ich habe ein array of TBla (dynamisch). Das soll jetzt eingefügt werden.

Bei der ListBox sah das so aus:

Delphi-Quellcode:

lst.items.add(title+' '+bla1+' '+bla2);

Wie mache ich das mit TListView?

[ManuMF]

Ich hab's eben gearde durch dieses Them gelernt, da ich es auch nicht wusste :mrgreen:

Delphi-Quellcode:

var Neu : TListItem;

begin
  Neu := lst.Items.Add;
  Neu.Caption := title;
  Neu.SubItems.Add(bla1);
  Neu.SubItems.Add(bla2);
end;

Gruß,
ManuMF

[Nightshade]

Die Methode Add, verfügt über keine Parameter.

Delphi-Quellcode:

Add (Methode von TListItems)

function Add: TListItem;

[3_of_8]

Könnte ich bitte ein Beispiel mit einem Array bekommen? Ich kriege immer AVs.

[ManuMF]

Hallo,

Um was für ein Array handelt es sich denn?
Mein Code bezieht sich auf eine Zeile des Listviews und muss natürlich so oft ausgeführt werden, wie Einträge hinzugefügt werden sollen.

Gruß,
ManuMF

[3_of_8]

Ahja. Ich weiß jetzt, wie es geht. Ich habe es jetzt so gemacht:

Delphi-Quellcode:

for I:=0 to high(array) do
begin
lstview.items.add;
with listview.items.item[listview.items.count-1] do
begin
Caption:='Titel';
SubItems.Add('Untereintrag1');
SubItems.Add('Untereintrag2');
SubItems.Add('Untereintrag3');
end;
end;

Und es funktioniert sogar!