Aktuelle Cursorposition im RecordSet-Objekt auslesen?

[Neuni]

Mauskoordinaten lesen:

Code:

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

Mausposition setzen:

Code:

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