Не пропадает Hint

← →
Alex_C (2008-12-17 13:04) [0]

Проблема: нужно показать хинт, когда мышь находится на определенной области формы, и убрать его, когда она с этой области уходит. Вроде все просто: на MouseMove анализируем положение мыши и показываем или убираем хинт через создание или удаление THintWindow. Однако если эта обасть формы оказывается на границе формы, при выведеннии мыши за границы формы хинт не пропадает до тех пор, пока снова мышкой не наведешь на форму. Как от этого избавиться?

← →
{RASkov} © (2008-12-17 13:14) [1]

> [0] Alex_C (17.12.08 13:04)

Можно в таймере проверять положение мыши, и если "не в форме", то убирать хинт....
Можно реагировать на CM_MOUSEENTER и CM_MOUSELEAVE, но они "глючат"...

← →
Alex_C (2008-12-17 14:17) [2]

У меня несколько таких форм...
А каких то других идей нет?

← →
Alex_C (2008-12-17 15:08) [3]

В общем не знаю на сколько это верно, но решилось все таймером:

procedure TMainForm.HintCloseTimerTimer(Sender: TObject);
var
WinControl: TWinControl;
WinHWND: HWND;
Pnt: TPoint;
begin
GetCursorPos(Pnt);
WinHWND := WindowFromPoint(Pnt);
WinControl := FindControl(WinHWND);
if (WinControl = nil) or (GetHintOwnerHandle <> WinControl.Handle) then
CloseHintHx;
end;

Где - GetHintOwnerHandle - возвращает Handle окна, которое вызывало хинт.

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