Maus an Position x positionieren

[marabu]

Guten Morgen.

So geht es:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
var
  pt: TPoint;
begin
  with DemoButton do
    pt := Point(Left + Width shr 1, Top + Height shr 1);
  Mouse.CursorPos := ClientToScreen(pt);
end;

Grüße vom marabu