Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi ListView Problem (https://www.delphipraxis.net/50379-listview-problem.html)

Alois 24. Jul 2005 23:38


ListView Problem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Warum kriege ich keine Spaltenüberschrift im ListView-Objekt angezeigt?? Nur der graue Balken wird angezeigt.
Ich habe in der ListView-Eigenschaft RowSelect=True und ViewStyle=vsReport eingestellt.

Kriege es einfach nicht auf die Reihe.

Hoffentlich kann mir jemand weiterhelfen.

Gruss Alois ;)

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

begin
     // Liste mit Dateinamen generieren
     strList := TStringList.Create();

     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.SubItems.Add('Zeile1');
     Zeile.SubItems.Add('Zeile2');
end;

Basic-Master 24. Jul 2005 23:57

Re: ListView Problem
 
setz bei der column noch zusätzlich die parent-eigenschaft auf dein listview, dann müsste es gehen ;)

ken_jones 25. Jul 2005 00:04

Re: ListView Problem
 
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?

Alois 25. Jul 2005 00:21

Re: ListView Problem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Vielen Dank für die schnellen Antworten. :-D

Die Lösung für mein Problem war aber leider nicht dabei..
Deshalb hänge ich mal meine Quelle an.

Wäre nett, wenn sich das jemand anschauen könnte.

Gruss Alois ;)

Matze 25. Jul 2005 00:25

Re: ListView Problem
 
Hallo!

Das kannst du noch nicht im OnCreate erledigen. Schreibe es z.B. ins OnShow des Formulars.

Alois 25. Jul 2005 00:50

Re: ListView Problem
 
Matze!! Du hast recht. Die Spalten werden erst bei ShowForm angezeigt.

Gruss Alois ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz