ToolTip Farbe wird geschluckt

[EWeiss]

Ok geht jetzt!

Delphi-Quellcode:

InitThemeLibrary;

var 
  S_OK:     HResult;
 
 ...
if hTooltip <> 0 then
begin
  S_OK := SetWindowTheme(hTooltip, '' , '');
  if S_OK = 0 then
  begin
    ToolTipData(hTooltip, 1);
    SplitColorARGB(SK_ACTIVECAPTION, Alpha, Red, Green, Blue);
    SendMessage(hTooltip, TTM_SETTIPTEXTCOLOR, RGB(Red, Green, Blue), 0);
    SplitColorARGB(SK_INACTIVECAPTION, Alpha, Red, Green, Blue);
    SendMessage(hTooltip, TTM_SETTIPBKCOLOR, RGB(Red, Green, Blue), 0);
    SendMessage(hTooltip, TTM_SETMAXTIPWIDTH, 0, 400);
  end;
end;

TTM_SETTIPTEXTCOLOR, und TTM_SETTIPBKCOLOR werden warhaftig geschluckt(nicht beachtet)
wenn die Theme für das Handle(ToolTip) nicht deaktiviert ist.

Vielleicht hilft das ja jemand der das gleiche Problem hat.

gruss