Einzelnen Beitrag anzeigen

Benutzerbild von Jan
Jan

Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
 
Delphi 7 Enterprise
 
#1

Relative Positionierung der Maus

  Alt 3. Dez 2005, 13:40
Hallo DPler!

Ich habe folgendes Problem:
Ich will den Mauszeiger in der Mitte des Forms platzieren.

bisher mache ich das so:


Delphi-Quellcode:
var muh : Types.TPoint;
    maus : TMouse;
...

    muh.x:=Round(ClientWidth/2)+form1.Left+4;
    muh.y:=Round(ClientHeight/2)+form1.Top+26;
    maus.CursorPos:=muh;
Allerdings ist diese Methode abhängig von der Breite des Rahmens, und da dieser Rahmen anscheinend nicht überall gleich ist funktioniert diese Methode nicht 100%ig auf anderen Rechnern. Außerdem glaube ich nicht, dass diese Methode auch im Vollbildmodus klappen würde.
Dass ich die Maus nur über die Bildschirmkoordinaten positionieren kann finde ich etwas ärgerlich und ich glaube, dass das auch anders gehen muss, da man im onMouseMove event ja auch relative Form-Mauskoordinaten bekommt.
Kann man also die Maus irgendwie mit relativen Form-koordinaten positionieren?

Gruß
Jan
Jan
Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
  Mit Zitat antworten Zitat