if hTooltip <> 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);
// Addiere den ToolTipText
ti.cbSize := sizeof(TToolInfo);
ti.hinst := skInstance;
ti.uFlags := TTF_IDISHWND
or TTF_SUBCLASS;
ti.hWnd := hParent;
ti.uId := hObj;
SendMessage(hTooltip, TTM_ADDTOOL, 0, LParam(@ti));
SetToolTipText(hObj, Text)
end;