🚀 go-pugleaf

Hi there,

does somebody know how to write a working balloon tip? According to MS 
it is supposed to work like that:

HWND hwndToolTips = CreateWindow(TOOLTIPS_CLASS,
                             NULL,
                             WS_POPUP | TTS_NOPREFIX | TTS_BALLOON,
                             0, 0,
                             0, 0,
                             NULL, NULL,
                             NULL,
                             NULL);
if (hwndToolTips)
{
     TOOLINFO ti;

     ti.cbSize = sizeof(ti);
     ti.uFlags = TTF_TRANSPARENT | TTF_CENTERTIP;
     ti.hwnd = this->WindowHandle;
     ti.uId = 0;
     ti.hinst = NULL;
     ti.lpszText = "test balloon message";
     ::SetWindowPos(hwndToolTips, HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | 
SWP_NOSIZE | SWP_NOACTIVATE);

     ::GetClientRect(this->Handle, &ti.rect);
     SendMessage(hwndToolTips, TTM_ADDTOOL, 1, (LPARAM) &ti );
}
SendMessage(hwndToolTips,TTM_ACTIVATE,(WPARAM)TRUE,0);


but somehow there appears nothing on my screen, which in fact is not 
much :-). Does anybody have an idea?

Thanks in advance,
  Tassilo