Текущий архив: 2006.03.19;
Скачать: CL | DM;

Вниз

Hint   Найти похожие ветки 

← →
Pit ©   (2006-02-28 19:01) [0]

Ув. мастера! При вызове 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:02) [1]

Ув. мастера! При вызове 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;

---

← →
Desdechado ©   (2006-02-28 19:06) [2]

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

---

← →
Pit ©   (2006-02-28 19:14) [3]

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

не помогает

---

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

Текущий архив: 2006.03.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.277 c