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

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

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

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