TComboBox.Color, csDropDownList klappt ab Vista nicht mehr

[hoika]

Hallo,

die Farbe der ComboBox wird nicth gesetzt,
erst wenn ich die ComboBox aufklappte, zeigt er mir die Farbe an.

Auch TAdvCombobox (TMS) geht nicht).
Bei TAdvOfficeCmboBox kann ich zumindestens die BorderColor setzen.

Unter XP ging das noch ...

Kennt jemand eine Lösung ?

Danke


Heiko

[Bummi]

Delphi-Quellcode:

uses uxTheme;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
SetWindowTheme(ComboBox1.Handle,'','');
end;