global exStyles := (WS_EX_COMPOSITED := 0x2000000) | (WS_EX_LAYERED := 0x80000)
     , WM_MOVE   := 0x0003
     , WM_MOVING := 0x0216
     , WS_VSCROLL := 0x00200000

Gui, New, +hwndhGui +E%exStyles%, Window position tracking
Gui, Margin, 20, 20
Gui, Font, s11, Calibri
Gui, Add, Text, w120 Right, WM_MOVE`nClient area position
Gui, Add, Edit, x+5 yp-4 w110 r2 -%WS_VSCROLL%

Gui, Add, Text, xm y+15 w120 Right, WM_MOVING`nWindow position
Gui, Add, Edit, x+5 yp-4 w110 r4 -%WS_VSCROLL%
GuiControl, Focus, Static1
Gui, Show

OnMove := Func("OnGuiMove").Bind(hGui)
OnMessage(WM_MOVE  , OnMove)
OnMessage(WM_MOVING, OnMove)

OnGuiMove(hGui, wp, lp, msg, hwnd) {
   if (hGui != hwnd)
      Return
   
   Switch msg {
      case WM_MOVE   : GuiControl,, Edit1, % "x:" . A_Tab . lp & 0xFFFF . "`n"
                                           . "y:" . A_Tab . lp >> 16
                                           
      case WM_MOVING : GuiControl,, Edit2, % "left:"   . A_Tab . NumGet(lp +  0, "Int") . "`n"
                                           . "top:"    . A_Tab . NumGet(lp +  4, "Int") . "`n"
                                           . "right:"  . A_Tab . NumGet(lp +  8, "Int") . "`n"
                                           . "bottom:" . A_Tab . NumGet(lp + 12, "Int")
   }
}

GuiClose() {
   ExitApp
}

typedef struct _RECT {
  LONG left;
  LONG top;
  LONG right;
  LONG bottom;
} RECT, *PRECT;

WM_MOVE(wParam, lParam)
{
	static init := OnMessage(0x3, "WM_MOVE")
	static callCount := 0

	if (callCount < 3)
	{
		callCount++
		return
	}

	x := lParam & 0xFFFF
	y := lParam >> 16

	ToolTip, % x " " y
}

Gui +LastFound +AlwaysOnTop +ToolWindow +hwndhGui
Gui Color, 0xDDFFAA
Gui Add, Text, vText x8 y8 w150 h23
Gui Show
WM_MOVE()
OnMessage(0x3, "WM_MOVE")   ; Отслеживаем перемещения окна.
Return

GuiEscape:
GuiClose:
ExitApp

WM_MOVE(){
 global
 WinGetPos, x, y
 GuiControl,, Text, % "Позиция: X: " x ",  Y: " y
}