Need help to MOVE a window :D

[Enforcer]

Hi All. I made window like this one:

$shirina = 520

$visota = 387

$FORM1= GUICreate("Form1", $shirina, $visota, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS),2)

And right now i need to move it... By a mouse like other normal windows, i made a simple

script but its still works bad and not correct, maybe someone know hot to fix this or other method to move this kind of window ?...

FULL SCRIPT:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <ImageListConstants.au3>
#include <Misc.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>



#Region ### START Koda GUI section ### Form=Form1.kxf
$shirina = 520
$visota = 387


$FORM1= GUICreate("Form1", $shirina, $visota, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS),2)
$SKIN = GUICtrlCreatePic("win.bmp", 0, 0, 520, 387)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


$dll = DllOpen("user32.dll")
Local $coords[4]

While 1
    

;ПОЛУЧАЕМ КООРДИНАТЫ ОКНА и КУРСОРА
$pos = MouseGetPos()
$winpos = WinGetPos($form1)

;ЕСЛИ НЕ НАЖАТА КЛАВИША И МЫ В ОКНЕ ТО ПОЛУЧАЕМ КООРДИНАТЫ НАШЕЙ МЫШКИ
if  not _IsPressed("01", $dll) and $pos[0] > $winpos[0] and $pos[0] < $winpos[0] + $shirina And $pos[1] > $winpos[1] and $pos[1] < $winpos[1] + $visota then
    $xz=$pos[0]-$winpos[0]
    $yz=$pos[1]-$winpos[1]
    ;_MouseTrap()
endif

;ЕСЛИ МЫШКА НАЖАТА И ОКНО АКТИВНО И МЫ В ОКНЕ ТО РАЗРЕШИТЬ ДВИГАТЬ
if _IsPressed("01", $dll) and WinActive($FORM1) and  $pos[0] > $winpos[0] and $pos[0] < $winpos[0] + $shirina   And $pos[1] > $winpos[1] and $pos[1] < $winpos[1] + $visota Then 
;   _MouseTrap($winpos[0], $winpos[1], $winpos[0] + $winpos[2], $winpos[1] + $winpos[3])
    WinMove($form1, "", $pos[0]-$xz, $pos[1]-$yz)
    
    
endif

;БАГ ЕСЛИ МЫ ДВИГАЕМ БЫСТРО МЫШКОЙ То ОНА ПОЛЮБОМУ ВЫСКАКИВАЕТ ЗА ОКНО,
;ДЛЯ ЭТОГО НАДО ПРОВЕРИТЬ В МОМЕНТ НАЖАТИЯ ГДЕ МЫ А ПОТОМ РАЗРЕШИТЬ ВСЁ ДЕЛАТЬ...


; KNOWN BUGS: IF WE TRYING TO MOVE WINDOW VERRY FAST SOMETIMES ITS JUST STOP MOVING...
;MAYBE SOMEONE KNOW'S BETTER WAYS TO MOVE THAT KIND OF WINDOWS CORRECT... !?


$nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            

EndSwitch
WEnd

DllClose($dll)

win.rar

[Melba23]

Enforcer,

Here you go:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <ImageListConstants.au3>
#include <Misc.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>

#Region ### START Koda GUI section ### Form=Form1.kxf
$shirina = 520
$visota = 387

$FORM1= GUICreate("Form1", $shirina, $visota, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS),2)
$SKIN = GUICtrlCreatePic("win.bmp", 0, 0, 520, 387)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;$dll = DllOpen("user32.dll")
;Local $coords[4]

While 1

$nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYDOWN  ; <<<<<<<<<<<<<<<<<<<<<<<<<<< Added
            _SendMessage($FORM1, $WM_SYSCOMMAND, 0xF012, 0)  ; <<< Added
EndSwitch
WEnd

;DllClose($dll)

M23

[Enforcer]

Thx for reply, but I already solved this broblem, I'l post my working script later, BUT BiG THX Eny way =)