Mega Code Archive

 

Categories / Delphi / Hardware

 

Get and set mouse position

Title: get and set mouse position? // 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;