XProfan

DEF @GetCursorPos(1) !"USER32","GetCursorPos"
DEF @WindowFromPoint(2) !"USER32","WindowFromPoint"
Windowstyle 31
Windowtitle "Fenstertitel von der Mausposition holen"
Window 50,75-600,350
Declare pos#,Handle&
@CREATEBUTTON(%HWND,"Test 1",100,100,100,30)
@createtext(%HWND,"Test 2",100,150,100,30)

While 0=0

    Sleep 10
    DIM POS#,8
    @GetCursorPos(pos#)
    Drawtext 0,0,"Global X="+@STR$(@Long(Pos#,0))+@Space$(100)
    Drawtext 0,20,"Global Y="+@STR$(@Long(Pos#,4))+@Space$(100)
    Let Handle&=@WindowFromPoint(@Long(Pos#,0),@Long(Pos#,4))
    Drawtext 0,40,"Handle des Fensters an diesem Punkt="+@STR$(Handle&)+@Space$(100)
    Drawtext 0,60,"Fenstertitel="+@GetText$(Handle&)+@Space$(100)
    Dispose Pos#

Wend