Comboliste klappt nicht auf

[EWeiss]

CB_SHOWDROPDOWN hat keine Auswirkung Liste klappt nicht auf.
Kann aber nicht erkennen das irgend etwas falsch ist.

Delphi-Quellcode:

LStyle := WS_CHILD or WS_VISIBLE or WS_TABSTOP or CBS_DROPDOWNLIST or
  CBS_HASSTRINGS or CBS_DISABLENOSCROLL or CBS_OWNERDRAWFIXED or WS_VSCROLL
  or CBS_NOINTEGRALHEIGHT;

HCombo := CreateWindowEx(0, 'COMBOBOX', PWideChar(ColorLabel), LStyle,
  Width - 24, 0, 0, 152, FHColorPicker, DlgItemID, SkinEngine.skInstance,
  nil);

// Speicher das Handle in mein Property.
SkinEngine.SetProperty(FHColorPicker, COLORPICK_COMBO, HCombo);

Delphi-Quellcode:

WM_COMMAND:
  begin
    HCombo := SkinEngine.GetProperty(WinHandle, COLORPICK_COMBO);
    EnableWindow(HCombo, true);
    SendMessage(HCombo, CB_SHOWDROPDOWN, WPARAM(True), 0); // funktioniert nicht warum auch immer.
    SkinColorPicker.PutFocusOn(HCombo);
  end;

gruss