void TfrmMain::ToolTip(HWND hWnd, wchar_t* wcText, TColor clBackCol, TColor clTextCol)
{
HWND hWndToolTip;
TOOLINFOW ti;
hWndToolTip = CreateWindow( TOOLTIPS_CLASS,
NULL,
WS_POPUP | TTS_NOPREFIX | 0x40 |
TTS_ALWAYSTIP,
0, 0, 0, 0,
hWnd,
0,
HInstance,
NULL );
if( hWndToolTip != 0 )
{
SetWindowPos( hWndToolTip,
HWND_TOPMOST,
0, 0, 0, 0,
SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOSIZE );
memset(&ti,0,sizeof(ti));
ti.cbSize = sizeof(ti);
ti.uFlags = Flags;
ti.hwnd = hWnd;
ti.lpszText = wcText;
ti.rect = frmMain->GetClientRect();
SendMessage( hWndToolTip, TTM_ADDTOOLW, 0, (LPARAM)&ti );
}
}
I jednostavno na FormCreate događaju postavim sljedeći kod:
Flags = TTF_TRANSPARENT | TTF_SUBCLASS;
ToolTip(Button1->Handle , L"Pozdrav", clWhite, clBlack );
i imam ballon tip koji se pojavljuje kad pređem mišem preko dugmeta.
Ono što mene zanima kako napraviti da ja kažem aplikaciji kada će se pojaviti Balloon Tip i na kojem mjestu. Recimo nešto kao kad vam kaže da nemate slobodnog mjesta na Hard Disku pa se pojavi Ballon Tip.