Как определить выход курсора за пределы объекта Image

[Дамир]

Всем Доброго времени суток! Не могли бы помочь с проблемой. На форме расположен Image. Как определить, расположен курсор над Image или нет?

[program123]

Можно, например вот так

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Form1.Caption:='Курсор расположен на картинкой';
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     Form1.Caption:='Курсор расположен на форме';
end;

Смотря что нужно делать

[Дамир]

В общем, на Image рисуется сетка, ячейки которой выделяются при наведении курсора мыши. И если курсор выходит за пределы объекта и сразу за пределы формы, то предложенный вариант не подходит.

[Jeni]

Была как-то подобная тема, стоит её поискать. Как один из вариантов - поместить Label поверх Image, установить у метки Transparent=True и обрабатывать события OnMouseEnter и OnMouseLeave. Но это так, черновой вариант.

[Дамир]

Я смотрел эту тему. А с Label то же самое происходит при выходе за пределы формы (не обрабатывается событие).

[Selestis]

Можно через процедуру GetCursorPos(..:TPoint) анализировать координаты. Типа Form1.Left+Image1.Leftбудет левой границей. А делать можно по событию OnMouseMove и формы и Imag'а или на худой конец Application.OnIdle

[mihali4]

Вам нужно обрабатывать события винды, возникающие при входе курсора в пределы компонента и при уходе за его пределы.
Для случая с Image я вам набросал примерчик:

  private
    { Private declarations }
    procedure Image1WindowProc(var Msg: TMessage);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  OldImage1WindowProc: TWndMethod;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
OldImage1WindowProc:=Image1.WindowProc;
Image1.WindowProc:=Image1WindowProc;
Image1.Perform(CM_MOUSELEAVE,0,0);
end;

procedure TForm1.Image1WindowProc(var Msg: TMessage);
begin
case msg.Msg of
CM_MOUSELEAVE:
begin
Label1.Caption:='Не над картинкой';
end;
CM_MOUSEENTER:
begin
Label1.Caption:='Над картинкой';
end;
end;
OldImage1WindowProc(Msg);
end;

[Дамир]

Спасибо огромное!, mihali4, РАБОТАЕТ!!!