AutoHotkey Community

Loop 6
 Gui, Add, Picture, Icon%A_Index% gControlMove, User32.dll
Gui, Add, Text, w200 h30 +0x201 +Border gControlMove, Static Text Control
Gui, Show, w400 h300, Click'N'Drag the Icons!
Return

ControlMove:
  MouseGetPos,,,,sHwnd, 2
  PostMessage, 0x112,0xF012,0,,ahk_id %sHwnd% ; [ WM_SYSCOMMAND+SC_MOVE ]
  Winset,Redraw,,ahk_id %sHwnd% ; Thanks to adamrgolf
Return

Gui, Add, CheckBox, gControlMove1 vCheckBox1 hwndCheckBox1_hwnd, Text

;Text control used to move the checkbox
;(occupies the same location and moves with the checkbox)
Gui, Add, Text, xp yp wp hp gControlMove1 vText1 hwndText1

Gui, Show, w300 h300, Click'N'Drag the Icons!
Return

ControlMove1:
{
    Count++
   
    MouseGetPos, PrevX, PrevY, , sHwnd, 2

    GuiControlGet, FocusedControl, FocusV

    ToolTip, % Count . " " . (sHwnd = Text1 ? "Text" : "Checkbox")

    PostMessage, 0x112,0xF012,0,,ahk_id %sHwnd% ; [ WM_SYSCOMMAND+SC_MOVE ]
    Winset,Redraw,,ahk_id %sHwnd% ; Thanks to adamrgolf

    ;necessary
    Sleep, 50
   
    MouseGetPos, NewX, NewY

    GuiControlGet, ControlPos, Pos, Text1

    GuiControl, MoveDraw, Text1, % "x" . ControlPosX + (NewX - PrevX)
        . "y" . ControlPosY + (NewY - PrevY)

    return
}

GuiEscape:
GuiClose:
ExitApp

;required
OnMessage(0x200, "OnMouseMove") ;WM_MOUSEMOVE   := 0x200
OnMessage(0x201, "OnClickDown") ;WM_LBUTTONDOWN := 0x201
OnMessage(0x202, "OnClickUp")   ;WM_LBUTTONUP   := 0x202

;draggable (MUST store the HWND in a value - see OnClickDown for details)
gui add, Checkbox, x50 y50 w80 h30 hwndMyControl_HWND, MyControl
gui add, Checkbox, x50 y100 w80 h30 hwndMyControl2_HWND, MyControl2
   
;not draggable
gui add, Checkbox, x150 y100 w80 h30, MyControl3

Gui Show, h300 w300
return

GuiEscape:
GuiClose:
ExitApp

OnClickDown()
{
    global

    ;list of controls to make draggable
    static ListOfDraggableControls
   
    local ThisControl
   
    if (!ListOfDraggableControls)
    {
        ;done only once

        ;these are the HWNDs for the draggable controls
        ListOfDraggableControls =
        (LTrim Comments
            %MyControl_HWND%
            %MyControl2_HWND%
        )
    }

    ;store the initial Mouse Position - used to move the control relative to the mouse movements.
    MouseGetPos, DragAnyControlX, DragAnyControlY, , ThisControl, 2

    if (!ThisControl)
        return

    ;DragAnyControl is already empty
   
    Loop, Parse, ListOfDraggableControls, `n
    {
        if (A_LoopField = ThisControl)
        {
            DragAnyControl := ThisControl
            break
        }
    }

    if (DragAnyControl)
    {
        ;used to detect a drag versus a normal click
        DraggedControl := false
       
        Winset,Redraw,,ahk_id %DragAnyControl% ; Thanks to adamrgolf
       
        ;don't send the mouse down (yet) - in case of a drag
        return 0
    }
}

OnClickUp()
{
    global DragAnyControl, DraggedControl
   
    if (DragAnyControl)
    {
        Winset,Redraw,,ahk_id %DragAnyControl% ; Thanks to adamrgolf
       
        DragAnyControl := ""
       
        if (!DraggedControl)
        {
            ;send the mouse click (since no drag was performed)
            Send, {LButton}
        }

        ;don't send the click up either (handled above)
        return 0
    }
}

OnMouseMove()
{
    global DragAnyControl, DragAnyControlX, DragAnyControlY, DraggedControl

    if (DragAnyControl)
    {
        MouseGetPos, MouseX, MouseY
        ControlGetPos, ControlPosX, ControlPosY, , , , ahk_id %DragAnyControl%
       
        ControlMove, , ControlPosX + (MouseX - DragAnyControlX)
            , ControlPosY + (MouseY - DragAnyControlY)
            , , , ahk_id %DragAnyControl%
           
        Winset,Redraw,,ahk_id %DragAnyControl% ; Thanks to adamrgolf
       
        ;update the position
        DragAnyControlX := MouseX
        DragAnyControlY := MouseY
       
        DraggedControl := true
   }
}

#NoEnv
WM_MOUSEMOVE := 0x200
WM_LBUTTONDOWN := 0x201
WM_LBUTTONUP := 0x202
; ------------------------------------------------------------------------------
Loop 5
   Gui, Add, Picture, Icon%A_Index%, User32.dll
Gui, Add, Text, w200 h30 +0x201 +Border, Static Text Control
Gui, Add, Checkbox, , Checkbox
Gui, Add, Edit, w200 r3, Edit
Gui, Add, DDL, w200 r5, DDL||
Gui, Add, Button, , Move me!
Gui, Show, w400 , Ctrl+Click'N'Drag!
Gui, +LastFound
GuiID := WInExist()
OnMessage(WM_LBUTTONDOWN, "LButtonDown")
Return
; ------------------------------------------------------------------------------
GuiClose:
ExitApp
; ------------------------------------------------------------------------------
LButtonDown(W) {
   Global
   Static MK_LBUTTON := 0x1
   Static MK_CONTROL := 0x8
   If (W = (MK_CONTROL + MK_LBUTTON)) {
      MouseGetPos, MX, MY, , CH, 2
      If (CH) {
         ControlGetPos, CX, CY, , , , ahk_id %CH%
         DX := CX - MX, DY := CY - MY
         OnMessage(WM_LBUTTONDOWN, "")
         ; WI : WINDOWINFO
         NumPut(VarSetCapacity(WI, 68, 0), WI)
         DllCall("GetWindowInfo", "UInt", GuiID, "Uint", &WI)
         ; CR : CLIENTRECT
         VarSetCapacity(CR, 16, 0)
         NumPut(NumGet(WI, 20), CR), NumPut(NumGet(WI, 24), CR, 4)
         NumPut(NumGet(WI, 28), CR, 8), NumPut(NumGet(WI, 32), CR, 12)
         DllCall("ClipCursor", "UInt", &CR)
         WinGet, CList, ControlListHwnd, ahk_id %GuiID%
         Loop, Parse, CList, `n
            If (A_LoopField != CH)
               Control, Disable, , , ahk_id %A_LoopField%
         OnMessage(WM_MOUSEMOVE, "MouseMove")
         OnMessage(WM_LBUTTONUP, "LButtonUp")
         Return 1 ; Don't pass the Click!
      }
   }
}
; ------------------------------------------------------------------------------
LButtonUp() {
   GLobal
   OnMessage(WM_MOUSEMOVE, "")
   OnMessage(WM_LBUTTONUP, "")
   Loop, Parse, CList, `n
      If (A_LoopField != CH)
         Control, Enable, , , ahk_id %A_LoopField%
   Winset, Redraw, , ahk_id %CH% ; %GuiID%
   DllCall("ClipCursor", "UInt", 0)
   OnMessage(WM_LBUTTONDOWN, "LButtonDown")
}
; ------------------------------------------------------------------------------
MouseMove() {
   Global
   Critical
   MouseGetPos, MX, MY
   ControlMove, , MX + DX, MY + DY, , , ahk_id %CH%
}
; ------------------------------------------------------------------------------