---Если все именно так как ты сказал, то на мой взгляд проще будет нарисовать квадрат на экране, туда же вывести текст.
Код:
var
ScreenDC: hDC;
mp : TPoint;
...
GetCursorPos(mp);
ScreenDC := GetDC(0);
Rectangle(ScreenDc,mp.X,mp.Y,mp.X+200,mp.Y + 30);
TextOut(ScreenDC,Mp.X + 3, mp.Y+3,'Label1',6);
TextOut(ScreenDC,mp.X+103,mp.Y + 3, 'Label2', 6);
ReleaseDC(0,ScreenDC);
Но к сожелению это усложняет создание всяких эффектов (всплытие, исчезновение и т.д.)
---Есть второй способ:
Вы водить вместо Хинта форму! Пойму способ самый лучший! Во-первых он проще, во-вторых на нем доступны почти все визуальные эфекты! Можно даже у формы границу оставить, задав ей значение bsToolWindow (Form1.BorderSyle := bsToolWindow). Кидаешь на форму таймер. По ее созданию ставишь альфу(AlphaBlendValue) на 0, а потом по таймеру прибовляешь по 10-15. Получилось вполне приличное вплытие! Можешь кончено и убрать границы формы тогда будет копия твоей панельки.
---А если хочешь что б никто не заметил подмены:
Выводишь опять же форму, обрезаешь ей углы (регионы или прозрачный вет), вставляшь туда Image со скрином уже готового Хинта, и поверх ложешь надпись. Теоритечески это можно выводить на экран, но так на мой взгляяд куда проще...
П.с. как сам хинт вывести не знаю, но судя по...
Цитата:
|
...заместо стандартного hint у нас появлялась panel созданная мноюб ранее...
|
тебе оно и не надо!
Удачи!