Mausbewegung(!) simulieren

[omata]

Ja, und wenn du das so machst...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MouseToControl(Button2);
end;

procedure TForm1.MouseToControl(Control: TWinControl);
var P:TPoint;
begin
  P:=Control.Parent.ClientToScreen(Point(
    Control.Left + (Control.Width div 2),
    Control.Top + (Control.Height div 2)
  ));
  MoveMouse(P.X, P.Y, 10);
end;