Flytte med musen

Hvis du vil se musens X, Y position kan du gøre følgende:

1. Anbring 2xlabels på din form
2. Klik på din form
3. Under Events, dobbelclicker du på OnMouseMove

Indføj disse 2 linier i eventet
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label1.Caption := IntToStr(X); <--TILFØJ
  Label2.Caption := IntToStr(Y); <--Tilføj
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//setcursorpos(X, Y);
setcursorpos(500, 800);
end;