Кто скажет как вывести подсказку (hint) в любом месте экрана.

← →
SergeySA © (2002-08-20 12:50) [0]

Кто скажет как вывести подсказку (hint) в любом месте экрана.
Называется эта фигня кажется tooltip control.
Знаю, что можно на VC++ . Нашёл пример. Но на Дельфе никак
не выходит. Кто знает как сделать?

пример который есть:
Первоначально необходимо создать окно класса TOOLTIPS_CLASS, потом заполнить структуру TOOLINFO Определяем два параметра в этой структуре, которые имеют для нас значение uFlags и lpszText. uFlags выбираем равным TTF_TRACK, что означает возможность использования посылки сообщений выбирающих позицию для ToolTip-a и видимость. lpszText - задание текста, который мы хотим выводить. Теперь мы посылаем сообщение в систему, о желании создать всплывающую подсказку, куда передаём ссылку на нашу структуру SendMessage(hwndTT, TTM_ADDTOOL, 0, (LPARAM) (LPTOOLINFO) &ti). Затем посылаем сообщение TTM_TRACKPOSITION, которая задаёт координаты всплывающей подсказки SendMessage(hwndTT, TTM_TRACKPOSITION, 0, (LPARAM)(DWORD) MAKELONG(m_x, m_y)), где m_x и m_y координаты x и y на экране. И в последнюю очередь посылаем сообщение о активизации всплывающей подсказки SendMessage(hwndTT, TTM_TRACKACTIVATE, true, (LPARAM)(LPTOOLINFO) &ti), где true параметр указывающий на отображение подсказки, при выборе false, подсказка будет скрыта.

← →
Набережных С. (2002-08-20 20:46) [1]

Перевод с русского на паскаль :)
var TF: TToolInfo; W: THandle; S: string; begin S:="My help string"; W:=CreateWindow(TOOLTIPS_CLASS,"MyToolHelp",0,0,0,0,0,0,0,hInstance,nil); ZeroMemory(@TF,SizeOf(TF)); TF.cbSize:=SizeOf(TF); TF.uFlags:=TTF_TRACK; TF.hwnd:=W; TF.lpszText:=PChar(S); SendMessage(W, TTM_ADDTOOL, 0, LPARAM(@TF)); SendMessage(W, TTM_TRACKPOSITION, 0, MAKELONG(40, 100)); SendMessage(W, TTM_TRACKACTIVATE, integer(true), LPARAM(@TF)); Sleep(1000); SendMessage(W, TTM_TRACKACTIVATE, integer(false), LPARAM(@TF)); DestroyWindow(W); end;

Кто скажет как вывести подсказку (hint) в любом месте экрана. Найти похожие ветки