Thema: Delphi ListView Problem

Einzelnen Beitrag anzeigen

ken_jones

Registriert seit: 16. Mai 2005
Ort: Luzern
154 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

Re: ListView Problem

  Alt 25. Jul 2005, 00:04
Hab eine Listview auf mein Form geknallt, RowSelect und ViewStyle angepasst und deinen Code in mein OnFormCreate kopiert und ein bisschen geändert (nur kosmetisch), und das ganze läuft sauber:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
   Spalte: TListColumn;
   Zeile: TListItem;

begin
     lvwQueue.Columns.Clear;

     // Spalte mit Dateinamen erzeugen
     Spalte := lvwQueue.Columns.Add;
     Spalte.Caption := 'Name';
     Spalte.Width := 150;

     // Spalte mit Dateigröße erzeugen
     Spalte := lvwQueue.Columns.Add;
     Spalte.Caption := 'Größe';
     Spalte.Width := 75;

     lvwQueue.Items.Clear;

     Zeile := lvwQueue.Items.Add;
     Zeile.Caption := 'Spalte 1';
     Zeile.SubItems.Add('Spalte2');
end;

Die Zeile "strList := TStringList.Create();" hab ich einfachheitshalber rausgenommen. Läuft bei dir der Code überhaupt sauber durch?
  Mit Zitat antworten Zitat