| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Hint [D6, XP]

Pit ©   (2006-02-28 19:01:00) 

Ув. мастера! При вызове hint'а он сначала на мгновение появляется в левом верхнем углу экрана, уже потом в GetCursorPos(cp), как заставить его появится сразу нужных координатах ?

private
   procedure HintHandler(Sender: TObject);

var
 cp:   TPoint;
 hw: THintWindow;
begin
if hw<>nil then
 hw.ReleaseHandle;
 hw:=THintWindow.Create(self);
 GetCursorPos(cp);
 hw.ActivateHint(Edit1.ClientRect, 'Это всплывающая подсказка');
 hw.Left:= cp.x ;
 hw.Top:= cp.y ;
 hw.Color:=  clInfoBk;

---

Pit   (2006-02-28 19:14:00) [1]

> поменяй местами
> hw.Left:= cp.x ;
> hw.Top:= cp.y ;
> и
> hw.ActivateHint(Edit1.ClientRect, 'Это всплывающая подсказка');
>

не помогает

---

Desdechado   (2006-02-28 19:06:00) [2]

поменяй местами
hw.Left:= cp.x ;
hw.Top:= cp.y ;
и
hw.ActivateHint(Edit1.ClientRect, 'Это всплывающая подсказка');

---

Pit   (2006-02-28 19:02:00) [3]

Ув. мастера! При вызове hint'а он сначала на мгновение появляется в левом верхнем углу экрана, уже потом в GetCursorPos(cp), как заставить его появится сразу в нужных координатах ?

var
cp:   TPoint;
hw: THintWindow;
begin
if hw<>nil then
hw.ReleaseHandle;
hw:=THintWindow.Create(self);
GetCursorPos(cp);
hw.ActivateHint(Edit1.ClientRect, 'Это всплывающая подсказка');
hw.Left:= cp.x ;
hw.Top:= cp.y ;
hw.Color:=  clInfoBk;

---

Наверх