XProfan

cls
userMessages 16,513//wm_close,wm_lButtonDown

while 1

    WaitInput

    select %uMessage

        caseof 16 : break//wm_close

        caseof 513 : hWnd.movebyMouse()//wm_lButtonDown

    endSelect

wend

end

proc hWnd.moveByMouse

    declare mpos#
    dim mpos#,8
    external("user32","GetCursorPos]",mpos#)
    var wix&=%winLeft-long(mpos#,0)
    var wiy&=%winTop-long(mpos#,4)

    while iskey(1)

        external("user32","GetCursorPos",mpos#)
        setWindowPos %hWnd=(long(mpos#,0)+wix&),(long(mpos#,4)+wiy&) - (%winRight-%winLeft),(%winBottom-%winTop);0

    wend

    dispose mpos#

endProc

cls
mensajes de los usuarios wm_close,wm_lButtonDown

mientras que 1

    WaitInput

    seleccionar %uMessage

        caseof wm_close : romper

        caseof wm_lButtonDown : hWnd.movebyMouse()

    EndSelect

wend

end

proc hWnd.moveByMouse

    mem mpos=point
    getCursorPos(mpos)
    var wix&=%winLeft-long(mpos,0)
    var wiy&=%winTop-long(mpos,4)

    mientras que iskey(1)

        external("user32","GetCursorPos",mpos)
        setWindowPos %hWnd=(long(mpos,0)+wix&),(long(mpos,4)+wiy&) - (%winRight-%winLeft),(%winBottom-%winTop);0

    wend

    disponer mpos

endProc