Popup window drag with mouse

[Didonet]

I'm having a popup gui without drag bar and I want to drag the gui using the mouse (to drag the gui with the mouse).

How?

[Zedna]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUICloseOnESC",1)
Opt("GUIOnEventMode",1)

$gui = GuiCreate("",300,200,-1,-1,BitOR($WS_POPUP,$WS_BORDER),BitOr($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetOnEvent ($GUI_EVENT_PRIMARYDOWN, "Drag" )
GUISetOnEvent ($GUI_EVENT_Close, "Quit" )
GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func Drag()
    dllcall("user32.dll","int","SendMessage","hWnd", $gui,"int",$WM_NCLBUTTONDOWN,"int", $HTCAPTION,"int", 0)
EndFunc

Func Quit()
    Exit
EndFunc

EDIT:

- corrected include list

- corrected Esc functionality

Edited November 30, 2008 by Zedna

[goldenix]

Use This:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

instead of:

#include <Constants.au3>
#include <GUIConstants.au3>

@Zedna

I have been looking for this, thanx

Edited November 29, 2008 by goldenix