Probleme mit dem ListView

[KodeZwerg]

Delphi-Quellcode:

type
  TListView = class(Vcl.ComCtrls.TListView)
  protected
    procedure CreateWnd; OVERRIDE;
  end;

procedure TListView.CreateWnd;
begin
  inherited; // <- super wichtig!
  SetWindowTheme(Form/Window-Handle, nil, nil);
// oder direkter
  SetWindowTheme(Form/Window-Handle, 'explorer', '');
end;

So klappt es bei mir. Problem gelöst?