Listview Spalten-Header beschriften?

[volksjammer]

Tach Delphi-Freunde!!!
Ich kann keine Möglichkeit finden, die Header der Spalten zu benennen!
Weder im OI noch im iNet fündig geworden. Meine OH funzt auch nicht mehr
Gibt es hierfür eine passable Lösung??

VIELEN DANK im Voraus!!
Gruß Uli

[TiGü]

Das auf true setzen:
http://docwiki.embarcadero.com/Libra...wColumnHeaders

Dann entweder im OI per Columns-Eigenschaft Spalten anlegen und beschriften oder im Code:
http://docwiki.embarcadero.com/Libra...stView.Columns

[Der schöne Günther]

Die Spalten sind aber meine ich nur sichtbar, wenn der ViewStyle des TListView auf vsReport steht.

[volksjammer]

Moin TiGÜ!!!
DANKE Dir für superschnelle Antwort!
Immerhin gibt es doch noch Infos hierzu.
Doch komme ich damit leider nicht weiter..
Columns ist auf True.
Im ColumnsEditor kann ich Columns hinzufügen und löschen,
Nicht aber benennen und die Eigenschaft Caption erscheint in meinem OI garnicht!
Sollte ich auf die Listview mit Spalten verzichten müssen??

[volksjammer]

Ja schöner Günter!
Die SpaltenHeader sind ja sichtbar!
ViewStyle steht auf vsreport!
Sind sind eben unbeschriftet!
Will sie mit 'Datum', 'Betrag' usw. benennen. Ufff
DANKE auch Dir!

[Popov]

Das Beispiel ist aus der OH (ComCtrls vorher einfügen):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
  Names: array[0..5, 0..1] of string = (
    ('Rubble', 'Barney'),
    ('Michael', 'Johnson'),
    ('Bunny', 'Bugs'),
    ('Silver', 'HiHo'),
    ('Simpson', 'Bart'),
    ('Squirrel', 'Rocky')
    );

var
  I: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
  ListView: TListView;
begin
  ListView := TListView.Create(Self);
  with ListView do
  begin
    Parent := Self;
    Align := alClient;

    ViewStyle := vsReport;

    NewColumn := Columns.Add;
    NewColumn.Caption := 'Last';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'First';

    for I := Low(Names) to High(Names) do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Names[I][0];
      ListItem.SubItems.Add(Names[I][1]);
    end;
  end;
end;

[volksjammer]

Ich versuche meine OH neu zu inst.!
ComCtrls ist eingebunden!
DANKE für das Code-Beispiel!!
Werde mich hoffnungsvoll hineinstürzen!

[volksjammer]

Ist was umständlich, aber es funzt! DANKE nochmal!!!

[TiGü]

Zitat von volksjammer:

Im ColumnsEditor kann ich Columns hinzufügen und löschen,
Nicht aber benennen und die Eigenschaft Caption erscheint in meinem OI garnicht!

Vom OI und dem Columns-Editor hätte ich gerne Screenshots, dass glaube ich nämlich nicht.

Siehst du die anderen Eigenschaften der Column wie z.B. Width, Height, ImageIndex, Alignment oder Autosize?

Ich bin sicher, es ist ein Layer 8 Problem!

[baumina]

Im Objektinspektor müsste das Ganze so aussehen: