AHK: Перетаскивание GUI за элемент "Button"

#Persistent
    Gui, 1: +AlwaysOnTop +LastFound -Caption +Toolwindow -E0x08000000 +HWNDhGUI1
    Gui, 1:Add, Text,, Bla-bla-bla
    Gui, 1:Add, Button, +HWNDhB1 , % 1*100
    Gui, 1:Add, Button,  +HWNDhB2 , % 2*100
    Gui, 1:Show
 
    OnMessage(WM_LBUTTONDOWN:=0x201, "WindowProc")
	OnMessage(0x200, "WindowProc")
	OnMessage(0x0202, "WindowProc")
return
 
WindowProc(wParam, lParam, uMsg, hWnd)
{
   global
   Critical
   static flag := 0
   static lastX
   static lastY
   if(hWnd=hGui1)
   {
      if(uMsg=0x201)
	     PostMessage, WM_NCLBUTTONDOWN:=0xA1, HTCAPTION:=2,,, ahk_id%hGUI1%
   }
   else if(hWnd=hB1||hWnd=hB2)
   {
      if(uMsg=0x201)
	  {
	     flag := 1
		 DllCall("GetCursorPos", "uint64*", coord)
		 lastX := coord&0xFFFFFFFF
		 lastY := coord>>32
	  }
	  else if(uMsg=0x0202)
	     flag := 0
	  else if(uMsg=0x200)
	  {
	     if(flag)
		    {
			   DllCall("GetCursorPos", "uint64*", coord)
		       dX := lastX-(coord&0xFFFFFFFF)
		       dY := lastY-(coord>>32)
			   WinGetPos, x, y,,, %WinTitle%
	           WinMove, ahk_id%hGUI1%, , x-dX, y-dY
			   lastX := coord&0xFFFFFFFF
		       lastY := coord>>32
			}
	  }
   }
}

Esc::ExitApp

MButton:: ; Средняя мышь - перемещение окон за любое место внутри окна
;-----------------------------------------------------------------------------
    ; И вы можете во время перемещения нажать Escape, чтобы отменить перемещение
CoordMode, Mouse ; переключиться на абсолютные координаты экрана
MouseGetPos, EWD_MouseStartX, EWD_MouseStartY, EWD_MouseWin ; получить начальную позицию мыши и ID окна под мышью
WinGetClass, EWD_Win_Class, ahk_id %EWD_MouseWin% ; получаем класс окна под мышью
WinGetTitle, EWD_Win_Title, ahk_id %EWD_MouseWin% 

If EWD_Win_Class=AutoHotkeyGUI
{
	if !hand
      DllCall("SetSystemCursor", UInt, CROSS_CursorHandle, Int, OCR_NORMAL), hand := 1

	WinGetPos, EWD_OriginalPosX, EWD_OriginalPosY,,, ahk_id %EWD_MouseWin% ; запоминаем исходные координаты окна
    SetTimer, EWD_WatchMouse, 5 ; переходить к указанной подпрограмме через каждые 10 мс
} 
else 
{
        SetTimer, EWD_WatchMouse, off ; отключить таймер
        EWD_Work = ; сбрасываем флаг, что подпрограмма выполняется
		Send, {MButton Down}
		Loop
			GetKeyState, MBState, MButton, P ; проверить нажата ли средняя кнопка мыши
		Until MBState = "U" ; если кнопка отпущена, то закончить 
		Send, {MButton Up}
		DllCall("SystemParametersInfo", UInt, SPI_SETCURSORS:=0x57, UInt, 0, UInt, 0, UInt, 0), hand := ""
    	Return ; закончить обработку горячей клавиши
 }
Return ; закончить обработку горячей клавиши

EWD_WatchMouse: ; подпрограмма обработки событий в таймере
    EWD_Work = 1 ; флаг, что подпрограмма выполняется (он нужен для корректной работы закрытия окон по Escape)
    GetKeyState, EWD_MButtonState, MButton, P ; проверить нажата ли средняя кнопка мыши
    If EWD_MButtonState = U ; если кнопка отпущена, то закончить перемещение окна...
    {
        SetTimer, EWD_WatchMouse, off ; отключить таймер
        EWD_Work = ; сбрасываем флаг, что подпрограмма выполняется
 		DllCall("SystemParametersInfo", UInt, SPI_SETCURSORS:=0x57, UInt, 0, UInt, 0, UInt, 0), hand := ""
       Return ; конец подпрограммы, закончить обработку горячей клавиши
    }
    GetKeyState, EWD_EscapeState, Escape, P ; проверить нажата ли клавиша Escape
    If EWD_EscapeState = D ; если нажата, то отменить перемещение окна (вернуть его в начальные координаты)
    {
        SetTimer, EWD_WatchMouse, off ; отключить таймер
        EWD_Work = ; сбрасываем флаг, что подпрограмма выполняется
        WinMove, ahk_id %EWD_MouseWin%,, %EWD_OriginalPosX%, %EWD_OriginalPosY% ; вернуть окно в начальные координаты
        DllCall("SystemParametersInfo", UInt, SPI_SETCURSORS:=0x57, UInt, 0, UInt, 0, UInt, 0), hand := ""
		Return ; конец подпрограммы, закончить обработку горячей клавиши
    }
    ; ...если кнопка нажата, то перемешать окно вслед за перемещением указателя мыши
    CoordMode, Mouse ; переключиться на абсолютные координаты экрана
    MouseGetPos, EWD_MouseX, EWD_MouseY ; получить текущие координаты мыши
    WinGetPos, EWD_WinX, EWD_WinY,,, ahk_id %EWD_MouseWin% ; получить позицию окна под мышкой
    SetWinDelay, -1 ; перемещать окно немедленно
    ; переместить окно под мышью вслед за мышью
    WinMove, ahk_id %EWD_MouseWin%,, EWD_WinX + EWD_MouseX - EWD_MouseStartX, EWD_WinY + EWD_MouseY - EWD_MouseStartY
    EWD_MouseStartX := EWD_MouseX ; обновить X координату для следующего вызова этой подпрограммы по таймеру
    EWD_MouseStartY := EWD_MouseY ; обновить Y координату для следующего вызова этой подпрограммы по таймеру

Return ; закончить подпрограмму и обработку горячей клавиши

If EWD_Win_Class=AutoHotkeyGUI

SetWinDelay, -1
CoordMode, Mouse
global WM_MOUSEMOVE:=0x200, WM_LBUTTONDOWN:=0x201, WM_LBUTTONUP:=0x202, WM_MOUSELEAVE:=0x2A3, WM_NCLBUTTONDOWN:=0xA1
global hGui1, hB1, hB2
Gui, 1: +AlwaysOnTop +LastFound -Caption +Toolwindow -E0x08000000 +HWNDhGui1
Gui, 1:Add, Text,, moving
Gui, 1:Add, Button, vb2 glMsgbox +HWNDhB1, % 1*100
Gui, 1:Add, Button, +HWNDhB2, % 2*100
Gui, 1:Show
Gui, 2: +AlwaysOnTop +LastFound -Caption +Toolwindow -E0x08000000 +HWNDhGui2
Gui, 2:Add, Text,, no moving
Gui, 2:Show
OnMessage(WM_LBUTTONDOWN, "WindowProc")
OnMessage(WM_MOUSEMOVE, "WindowProc")
OnMessage(WM_LBUTTONUP, "WindowProc")
OnMessage(WM_MOUSELEAVE, "WindowProc")
return

lMsgbox:
   msgbox tra-ta-ta
return

WindowProc(wParam, lParam, uMsg, hWnd)
{
   Critical
   static IsMove := 0, IsMoved := 0
   
   static lastX, lastY
   if(hWnd=hGui1)
   {
      if(uMsg=WM_LBUTTONDOWN)
	     PostMessage, WM_NCLBUTTONDOWN, HTCAPTION:=2,,, ahk_id%hGui1%
   }
   else if(DllCall("GetAncestor", ptr, hWnd, uint, 2, ptr)=hGui1)
   {
      if(uMsg=WM_LBUTTONDOWN)
      {
         IsMove := 1
		 IsMoved := 0
	     MouseGetPos, lastX, lastY
      }
      else if(uMsg=WM_MOUSELEAVE)
	     IsMove := 0
	  else if(uMsg=WM_LBUTTONUP)
	  {
	     IsMove := 0
	     if(IsMoved)
		 {
		    GuiControl, -g, b2
		    DllCall("CallWindowProcW", ptr, DllCall("GetWindowLongPtr", ptr, hWnd, int, -4, ptr), ptr, hWnd, uint, uMsg, ptr, wParam, ptr, lParam)
	        GuiControl, +glMsgbox, b2
		 }
		 IsMoved := 0
	  }
      else if(uMsg=WM_MOUSEMOVE)
         if(IsMove)
	     {
		    IsMoved := 1
	        MouseGetPos, x, y
		    WinGetPos, WinX, WinY, Width,, ahk_id%hGui1%
		    WinMove, ahk_id%hGui1%,, WinX+x-lastX, WinY+y-lastY
			lastX := x
			lastY := y
	     }
   }
}

Esc::ExitApp

#If GetKeyState("LButton", "P")
   RButton::
   ...