Мышь над формой

← →
Kinrderrr (2004-01-18 21:42) [0]

КАк определить, что курсор находится над формой?

← →
Юрий Зотов (2004-01-19 00:06) [1]

1. Именно над самой формой:
1.1. if WindowFromPoint(Mouse.CursorPos) = Form1.Handle then...
1.2. if FindVCLWindow(Mouse.CursorPos) = Form1 then...
1.3. if FindVCLWindow(Mouse.CursorPos) is TForm then...

2. В пределах окна формы:
2.1. if PtInRect(Form1.BoundsRect, Mouse.CursorPos) then...

← →
Piter (2004-01-19 00:50) [2]

Вопрос неоднозначный. Если в какой-то момент времени надо определить над чем находится курсор - то Юрий прав, конечно.

Но использовав силу телепатии я думаю, что автору надо узнать тот момент, когда курсор окажется над его формой. В этом случае предлагаю обрабатывать сообщение CM_MOUSEENTER, CM_MOUSELEAVE

Мышь над формой Найти похожие ветки