Naja, also einen normalen Header wie im Adressbuch bekommst Du schon hin.
TListViewItem.Purpose ist die Eigenschaft, die dafür zuständig ist.
Delphi-Quellcode:
procedure TForm1007.FormCreate(Sender: TObject);
var idx : integer;
item : TListViewItem;
begin
ListView1.BeginUpdate;
for idx:= 0 to 99 do
begin
item:= LIstView1.Items.Add;
item.Text := 'Item #' + IntToStr(idx);
if idx mod 10 = 0 then
item.Purpose := TListItemPurpose.Header;
end;
ListView1.EndUpdate;
end;
Daniel R. Wolf
mit Grüßen aus Hamburg