Как заставить контрол показать свой хинт ?

← →
MalkoLinge © (2003-07-23 14:08) [0]

В данный момент пытаюсь сделать это примерно так :

var
P: PhintInfo;
vpoint: TPoint;
begin
vpoint.X:=0;
vpoint.y:=0;

New(P);
with P^ do
begin
HintPos := ClientToScreen(Vpoint);
HintColor:=clInfoText;
end;

FDisplayEdit.Perform(CM_HintShow, 0, Integer(P))
end;

но ничего у меня не выходит....

← →
Yanis © (2003-07-23 14:14) [1]

Application.ActivateHint(Mouse.CursorPos);

← →
MalkoLinge © (2003-07-23 14:52) [2]

> Yanis © (23.07.03 14:14)
> Application.ActivateHint(Mouse.CursorPos);

Спасибо, но мне нужно это сделать сообщением, так как контрол который должен показать свой хинт, агрегирован в другой :(

← →
Ader_007 (2003-07-23 15:36) [3]

Только седня получил рассылку:
{Появление}
IF h<>nil H.ReleaseHandle; {если чей-то хинт yже был, то его погасить}
H:=THintWindow.Create(Окно-владелец хинта);
H.ActivateHint(H.CalcHintRect(...),"hint hint nint");
....
{UnПоявление :) - это возможно пpидется повесить на таймеp, котоpый бyдетобнyляться пpи каждом новом появлении хинта}
IF h<>nil H.ReleaseHandle;

> Ader_007

Нужно чтоб контрол светил свой хинт %( Этот способ я знаю :(

Как заставить контрол показать свой хинт ? Найти похожие ветки