بدست آوردن و تنطيم کردن موقعييت نشانگر ماوس در صفحه...

SwissDelphiCenter.ch : منبع

 // Get mouse positon

 procedure TForm1.Button1Click(Sender: TObject);
 var
   MausPos: TPoint;
 begin
   GetCursorPos(MausPos);
   label1.Caption := IntToStr(MausPos.x);
   label2.Caption := IntToStr(MausPos.y);
 end;

 // Set mouse position to (x,y)

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