Maus positionieren Problem

[Helmi]

mmh - also ich kanns auch im OnShow nicht nachvollziehen.

Anbei mein Test-Code bei dem es problemlos funktioniert:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
   MousePos: TPoint;
 begin
     MousePos.X := Button1.Left + Button1.Width div 2;
     MousePos.Y := Button1.Top + Button1.Height div 2;
     Mouse.CursorPos := ClientToScreen(MousePos);
 end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := true;

  Hide;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  Show;
end;