Скачать: CL | DM;

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

← →
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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c