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

Как узнать что курсор мыши находится над компонентом?   Найти похожие ветки 

← →
CAMOBAP ©   (2003-05-12 10:24) [0]

Пробовал сделать так, не работает:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>image1.Left)and(x<image1.Left+image1.Width)and
(y>image1.Top)and(y<image1.Top+image1.Height) Then
..........
end;

---

← →
Шаман ©   (2003-05-12 10:40) [1]

OnMouseMove у image1 чем не подходит?

---

← →
NAlexey ©   (2003-05-12 10:51) [2]

Наверное так.
PtInRect(Control.BoundsRect, Point(X, Y));

---

← →
CAMOBAP ©   (2003-05-12 10:52) [3]

Хех, действительно, я туплю, спасибо.

---

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

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



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