تغییر موقعیت Mouse

[FirstLine]

با سلام
چجوری میشه پس از انجام یک عملیات یا Proccess (مثلا زدن یک دکمه) موقعیت و مکان نمای Mouse بر روی یک دکمه خاص منتقل شود؟
با تشکر

[Kamran.K]

1- اگه فقط نقطه‌ی خاصی مدنظرتون هست این کد رو پیشنهاد می‌کنم

procedure TForm1.Button2Click(Sender: TObject);
begin
SetCursorPos(600, 600);
end;

2- این کاملتره:

procedure MouseAt(Client : TControl; X, Y : integer; Click : boolean);
{moves mouse cursor, & clicks if Click is true}
var
MousePoint : TPoint;
begin
MousePoint := Point(X, Y);
if Client <> nil then
MousePoint := Client.ClientToScreen(MousePoint);
SetCursorPos(MousePoint.X, MousePoint.Y);
if Click then
ClickMouse;
end;
procedure ClickMouse;
begin
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;