تشخیص خروج ماوس از روی کنترل

[mbshareat]

سلام علیکم
در بخش نکات برنامه نویسی دلفی یه کد دیدم که با استفاده از چیزی مثل:
procedure CMMouseLeave(var AMsg: TMessage); message CM_MOUSELeave;
کار می کرد که نتونستم فرقش رو با استفاده کردن از رویداد OnEnter,OnExit بفهمم که ربطی به ماوس ندارند و فقط مساله فوکوس رو بررسی می کنند.
من میخوام بدون تایمر بفهمم که آیا ماوس هنوز روی Image هست یا نه؟

[mbshareat]

فکر می کردم چنین کدی کار می کنه ولی کار نکرد:

TMouseLeave=Class(TButton)

Private
procedure MouseLeave(var Message: TMessage); message CM_MouseLeave;
End;
var
Form1: TForm1;
Button1:TMouseLeave;


implementation

{$R *.dfm}

procedure TMouseLeave.MouseLeave(var Message: TMessage);
begin
Windows.Beep(123,200);
ShowMessage('12');
end;

[دلفــي]

سلام علیکم
در بخش نکات برنامه نویسی دلفی یه کد دیدم که با استفاده از چیزی مثل:
procedure CMMouseLeave(var AMsg: TMessage); message CM_MOUSELeave;
کار می کرد که نتونستم فرقش رو با استفاده کردن از رویداد OnEnter,OnExit بفهمم که ربطی به ماوس ندارند و فقط مساله فوکوس رو بررسی می کنند.
من میخوام بدون تایمر بفهمم که آیا ماوس هنوز روی Image هست یا نه؟


procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
ShowMessage('Mouse Entered'); // Image ورود اشاره گر روی
end;


procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
ShowMessage('Mouse Leaved'); // Image خروج اشاره گر از روی
end;