|
#1
|
||||
|
||||
Hint WinApi
Здравствуйте.
Проблема: Имеется "Static" в нижнем правом углу окна(он привязан к нему). Если навести курсор на Static, появляется подсказка. Все нормально. Но стоит изменить размер окна, следовательно положение Static'a меняется, то подсказка не появляется над Static'om , а остается на старом месте. Подскажите как исправить, как переместить на новую позицию? Код:
procedure AddTool(Wnd: HWND; Text: String; Center: Boolean); var ti: TOOLINFO; begin ZeroMemory(@ti, SizeOf(TOOLINFO)); ti.cbSize:=SizeOf(TOOLINFO); if Center then ti.uFlags:=TTF_SUBCLASS or TTF_CENTERTIP else ti.uFlags:= TTF_SUBCLASS; ti.hwnd:= Wnd; ti.lpszText:=PChar(Text); GetClientRect(Wnd, ti.Rect); SendMessage(FToolTip, TTM_ADDTOOL, 0, LPARAM(@ti)); end; В WM_Create Код:
FToolTip:=CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASS, nil, //TTS_BALLOON or WS_POPUP or TTS_NOPREFIX or TTS_ALWAYSTIP, 0, 0, 0, 0, 0, 0, HInstance, nil); AddTool(LBTime, 'бла-бла', False); Есть кто живой? Последний раз редактировалось Stalker2-42, 16.08.2015 в 15:15. |