Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Column in ListView Item hinzufügen


Delphi2009lover - Do 19.11.09 22:04
Titel: Column in ListView Item hinzufügen
Hi,

ich habe in diesem Thema schon gefragt, was ich da verwenden soll : http://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 - So 29.11.09 12:45
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 - So 29.11.09 13:57

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 - So 29.11.09 14:56
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 - So 29.11.09 15:34

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;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!