Скачать: CL | DM;

Кто скажет как вывести подсказку (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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c