Cursor position

[wbeetge]

How can I determine the absolute cursor position inside an activeX, inside a set of containers, inside a form?

I have tried the GetCursorPos API, but it still only returns the relative position. I tried to find the control's Parent left position, but it seems to only work up to the 2nd level: Ctrl -> Ctrl -> Form

I need to determine the absolute position for number of levels.
Thanks in advance.

Graham

 

[Hypetia]

You need to call the ScreenToClient function after calling GetCursorPos.

ScreenToClient will convert the screen coordinates to client coordinates of the window whose handle is passed to it.
___

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

...

Dim P As POINTAPI
GetCursorPos P
ScreenToClient ContainerX.hwnd, P
'Now P.x and P.y contain mouse
'position w.r.t. ContainerX.

 

[wbeetge]

Thanks Hypetia.
I'm going to try it right now.

 

[wbeetge]

Great Stuff!!