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, "Это всплывающая подсказка");

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

не помогает

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