Mausposition abfragen

[satmax]

Wie kann ich innerhalb meines Programmes die Mausposition relativ zu meinem Programmfenster abfragen?

Ich möchte ein Kontextmenü immer an der Mausposition öffnen. GetPointerPos() liefert mir immer die Postion relativ zum Bildschirm, funktioniert also nur bei maxmierten Fenster auf dem ersten Bildschirm.

[Martin Altmann]

Zieh' doch den Koordinatenursprung Deines Fensters davon ab - dann hast Du den gewünschten Wert!

Viele Grüße,
Martin

[Tom]

Wie Martin schreibt: oDialog:CurrentPos() liefert Dir als {x,y} die Fensterposition bezogen auf die Ursprungskoordinaten. Wenn Du x und y von den jeweils korrespondierenden Koordinaten abziehst, hast Du die relative Position bezogen auf das Fenster.

[satmax]

Danke, leider funktioniert da irgendetwas nicht richtig. Ich habe jetzt zu Testzwecken extra die Dialogvariable umbenannt und als PUBLIC angelegt

oDLgPublic:currentPos() liefert mir nach der Erstellung des Dialoges richtige Werte: {723,905} oder eben andere Werte wenn ich vor dem Öffnen des Dialoges das Hauptfenster verschiebe.

Nur in meiner Methode (oder Funktion)

Code: Alles auswählen

METHOD DisSQLsubClass:OnEvent(EventID)  // Event wird von einem ActiveX Control ausgelöst

liefert oDLgPublic:currentPos() IMMER {-8,-6} egal wohin ich das Fenster (Hauptprogramm) verschiebe).

oDLgPublic:currentPos() im testweise im Eventloop alle 10 Sekunden ausgegeben liefert auch immer korrekte Werte.

Jetzt mache ich mir mal einen Kaffee...

[satmax]

So klappt das jetzt. Ich kann diesen Dialog auf 3 Arten öffnen, normal innerhalb des Programmes, als freies Fenster, also nicht nur innerhalb des Programmes, und als freies Fenster über den ganzen Bildschirm. So kann man dieses Fenster problemlos auf einen 2 und 3 Monitor legen.

Code: Alles auswählen

...
aWinPos  := oMyDlg:currentPos()

aPos := GetPointerPos()
    
IF lOwnWindow .OR. lFullScreen    // Eigenes "freies" Fenster oder eigenes Fenster Fullscreenmode
   aPos[1]:= aPos[1] - aWinPos[1]
   aPos[2]:= aPos[2] - aWinPos[2]
else	
    aAppPos  := SetAppWindow():currentPos()   // läuft als Fenster innerhalb der MainApp
    aPos[1]:= aPos[1] - aAppPos[1] -aWinPos[1]
    aPos[2]:= aPos[2] - aAppPos[2] -aWinPos[2]
endif
		
oMenu:popUp( oMyDlg, aPos )

Danke!

[AUGE_OHR]

Code: Alles auswählen

aPos := GetPointerPos()

Frage : wie sieht bei dir GetPointerPos() aus ?

[satmax]

Ist orignal von XBase++, AUszug aus der Hilfe:

GetPointerPos()
Determines the position of the mouse pointer.

GetPointerPos() --> <aPos>

Return
GetPointerPos() returns an array containing two elements: {xPos,yPos}. This array contains the x and y coordinates of the mouse pointer.

Description
Function GetPointerPos() can be used to determine the current position of the mouse pointer. The pointer position is specified relative to the desktop object, see the function AppDesktop().

oder was meinst Du?

[AUGE_OHR]

Ist orignal von XBase++, Auszug aus der Hilfe:
...
oder was meinst Du?

uuuups ... GetPointerPos() kannte ich noch gar nicht obwohl in c:\ALASKA\XPPW32\Source\SYS\xbparts.prg vorhanden