Column in ListView Item hinzufügen

Delphi2009lover · Beiträge: 176

Hi,

ich habe in diesem Thema schon gefragt, was ich da verwenden soll : www.delphi-forum.de/viewtopic.php?t=95714

ich wollte nur fragen, wie ich den Spalten jetzt Einträge hinzufügen kann?^^

Thx im Vorraus

Delphi2009lover · Beiträge: 176

sry für den Doppelpost. Ich beschreibs mal genauer. Die Beschreibung bezieht sich auf das Bild in dem Post, den ich oben verlinkt hab.

Da gibt es j 4 Spalten (Name, Basis..., PID, THreads) unter der Spalte Name steht ja der Name der App, bei Basispriorität die Priorität. Angenommen, ich wollte das nachbauen, (mit diesen 4 Spalten) und hätte das mit einem Listview gemacht, style:= vsReport, ... so wie ihr mir das in dem Thema erklärt habt. Wie füge ich jetzt der Spalte "Name" ein Item hinzu (also z.B. der Softwarename) und wie füge ich jetzt der Spalte Basispriorität ein Item hinzu (also z.B. Hoch, Mittel, Niedrig,...)?

Wenn ihr das Beschreiben könntet verrsteh ich das zu 100% ^^

Ich habs ja schon mit ListView1.Items.Add() versucht aber da macht er das Item nur in die 1. Spalte

jaenicke · Verfasst: So 29.11.09 13:57

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var
  NewItem: TListItem;
begin
  NewItem := lvProcesses.Items.Add;
  NewItem.Caption := 'Überschrift (Spalte 1)';
  NewItem.SubItems.Add('Erster Untereintrag (Spalte 2)';
  NewItem.SubItems.Add('Zweiter Untereintrag (Spalte 3)';
  ...

Das steht allerdings auch in dem Link, der in deinem anderen Thread am Ende verlinkt wurde.

Delphi2009lover · Beiträge: 176

Sry ich war mal wieder zu dumm... Aber ein kleines Problem hab ich da noch... Wenn ich jetzt in meinem ListView in einer Procedure zum ListView 4 Zeilen hinufügen will, muss ich dann vier Variablen vom Typ TListItem erstellen?

Weil wenn ich am ende ListItemA.Free schreibe dann ist mein ListVIew wieder leer^^ ich bin vielleicht wieder zu dumm

jaenicke · Verfasst: So 29.11.09 15:34

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  i: Integer;
  NewItem: TListItem;
begin
  for i := 0 to 3 do
  begin
    NewItem := lvProcesses.Items.Add;
    NewItem.Caption := 'Überschrift - Eintrag ' + IntToStr(i) + ' (Spalte 1)';
    NewItem.SubItems.Add('Erster Untereintrag (Spalte 2)';
    NewItem.SubItems.Add('Zweiter Untereintrag (Spalte 3)';
    ...
  end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme