Maus auf Mitte einer Komponente setzen

[Neutral General]

Hi,

So gehts:

Delphi-Quellcode:

// Maus soll in die Mitte von Panel1
var p: TPoint;
begin
  P.x := (Panel1.Width div 2);
  P.y := (Panel1.Height div 2);
  Mouse.CursorPos := Panel1.ClientToScreen(P);
end;