Maus auf Mitte einer Komponente setzen

[kurtm1]

Wie kann ich die Mausposition auf die Mitte einer Komponente setzen? (unabhängig davon wie groß die Form/Komponente ist, bzw. wo diese positioniert ist)

Ich habe es mit folgendem Kommando probiert:

Mouse.CursorPos:=Point(form2.left+Panel1.left+(Panel1.width div 2),form2.Top+Panel1.Top+(Panel1.Height div 2)+GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYSIZEFRAME)); Die Y Koordinate dürfte so ok sein, die X Koordinate ist jedoch ein wenig zu weit links.

Gibt es eine bessere Möglichkeit?

[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;

[DeddyH]

Ungetestet:

Delphi-Quellcode:

var p: TPoint;
begin
  p := Panel.ClientToScreen(Panel.Width div 2, Panel.Height div 2);
  SetCursorPos(p.X,p.Y);
end;

[edit] *Oops*, da war der General schneller [/edit]

[kurtm1]

perfekt, danke!!