Delphi Maus auf Mitte einer Komponente setzen

Thema durchsuchen

Ansicht

Themen-Optionen

Maus auf Mitte einer Komponente setzen

Ein Thema von kurtm1 · begonnen am 9. Sep 2008 · letzter Beitrag vom 9. Sep 2008

Vorheriger Beitrag

Nächster Beitrag

kurtm1

Registriert seit: 12. Dez 2003
348 Beiträge

Maus auf Mitte einer Komponente setzen

9. Sep 2008, 19:14

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?