Task

Get the current location of the mouse cursor relative to the active window.

Please specify if the window may be externally created.




 
try destroydialog mousePos catch ()
 
rollout mousePos "Mouse position" width:200
(
	label mousePosText "Current mouse position:" pos:[0,0]
	label mousePosX "" pos:[130,0]
	label mousePosSep "x" pos:[143,0]
	label mousePosY "" pos:[160,0]
 
	timer updateTimer interval:50 active:true
 
	on updateTimer tick do
	(
		mousePosX.text = (mouse.screenpos.x as integer) as string
		mousePosY.text = (mouse.screenpos.y as integer) as string
	)
 
)
 
createdialog mousepos 
 