Button to drag window.

[Vadersapien]

Hello,

I would like to know how to create a button that will allow the user to drag the GUI around.

[Mat]

You can do it with a button but its not pretty...

A better solution is to use a label. (And try to make it look like a button)

#Include<GUIConstantsEx.au3>
#Include<WindowsConstants.au3>
#Include<StaticConstants.au3>

$hGUI = GUICreate ("testing", 400, 300)

$hLabel = GUICtrlCreateLabel ("Drag ME!!", 20, 20, 80, 30, BitOR ($WS_SIZEBOX, $SS_CENTER), $GUI_WS_EX_PARENTDRAG)

GUISetState ()

While 1
   Switch GUIGetMsg ()
      Case -3
         Exit
   EndSwitch
WEnd

If you really must use a button then this is one possible workaround

#Include<Misc.au3>

$hGUI = GUICreate ("testing", 400, 300)

$hButton = GUICtrlCreateButton ("Drag ME!!", 20, 20, 80, 30)

GUISetState ()

While 1
   Switch GUIGetMsg ()
      Case -3
         Exit
      Case Else
         $aFirst = GUIGetCursorInfo ()
         If Not IsArray ($aFirst) Then ContinueLoop
         If $aFirst[2] = 0 Then ContinueLoop
         If $aFirst[4] <> $hButton Then ContinueLoop
         $aFirst[0] += 3
         $aFirst[1] += 24

         While _IsPressed (01)
            $aPos = MouseGetPos ()
            WinMove ($hGUI, "", $aPos[0] - $aFirst[0], $aPos[1] - $aFirst[1])
         WEnd
   EndSwitch
WEnd

Mat

Edit: Updated second code.

Edited November 18, 2009 by Mat

[PsaltyDS]

Another way (doesn't require holding the mouse down), just for fun:

#include <GUIConstantsEx.au3>

Global $hGUI, $idButton, $aMPos
$hGUI = GUICreate("GUI In Drag", 300, 300)
$idButton = GUICtrlCreateButton("START Drag", 50, 50, 200, 200)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $idButton
            If GUICtrlRead($idButton) = "START Drag" Then
                GUICtrlSetData($idButton, "STOP Drag")
            Else
                GUICtrlSetData($idButton, "START Drag")
            EndIf
    EndSwitch

    If GUICtrlRead($idButton) = "STOP Drag" Then
        $aMPos = MouseGetPos()
        WinMove($hGUI, "", $aMPos[0] - 150, $aMPos[1] - 165)
    EndIf

    Sleep(20)
WEnd