انتخاب بخش خاصی از تصویر

[Gladiator]

با سلام

به چه شکل میشه قسمت خاصی از یک Image رو که بروی فرم قرار دادیم انتخاب کنیم و به برنامه بگیم اگر موس بروی این قسمت تصویر قرار گرفت اونوقت مثلا فلان کار رو انجام بده ؟

مثلا یک تصویر 800 در 600 داریم میخوایم اگر موس بروی نقطه 100 و 100 قرار گرفت و اونجا کلیک کرد فرمان خاصی اجرا بشه . و یا اینکه مثلا اگر بین مختصات 100 و 100 تا 200 و 200 قرار گرفت و کلیک کرد این اتفاق بیفته .

پیشاپیش متشکرم .
گلادیاتور .

[Kambiz]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Pt: TPoint;
begin
Pt.X := X;
Pt.Y := Y;
if PtInRect(Rect(100, 100, 200, 200), Pt) then
ShowMessage('bla bla bla...');
end;

[Gladiator]

به همین سادگی ؟

آقا کامبیز دستت درد نکنه . مرسی . :heart: :flower: