[Creat0R]

Maza Faka,

Как сделать, что бы левой кнопкой мыши можно было перетаскивать (drag) элемент Label в пределах GUI-окна?

Нужно отлавливать нажатие мышки, а потом MouseGetPos() + GuiCtrlSetPos()

Код:

#include <GuiConstants.au3>
Opt("MouseCoordMode", 2)

$Gui = GuiCreate("Test")
$Label = GUICtrlCreateLabel("My Label, Move me ;)", 20, 20)

GUISetState()

While 1
    $Msg = GUIGetMsg()

        Switch $Msg
        Case -3
            Exit
        Case Else
            $CurInfo = GUIGetCursorInfo($Gui)
            While $CurInfo[2] = 1 And $CurInfo[4] = $Label
                $CurInfo = GUIGetCursorInfo($Gui)
                $LabelPos = ControlGetPos($Gui, "", $Label)
                If $LabelPos[0] <> MouseGetPos(0) Or $LabelPos[1] <> MouseGetPos(1) Then
                    GUICtrlSetPos($Label, MouseGetPos(0), MouseGetPos(1))
                Else
                    Sleep(5)
                EndIf
            WEnd
    EndSwitch
WEnd