Кто скажет как вывести подсказку (hint) в любом месте экрана. [D5, WinME]
SergeySA © (2002-08-20 12:50:00)
Кто скажет как вывести подсказку (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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
