[GUI] Как двигать мышкой окно без рамок

[SNAK]

Как двигать GUI мышкой если у него нет рамок и оно полу прозрачно

$Form1 = GUICreate("Form1", 104, 67, -1, -1 ,$WS_POPUP, $WS_EX_LAYERED + $WS_EX_COMPOSITED)
$Graphic1 = GUICtrlCreateGraphic(-168, -144, 336, 256)
GUICtrlSetGraphic(-1, $GUI_GR_PENSIZE, 2)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, 241, 201, -41, -41)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xFF0000)
GUICtrlSetGraphic(-1, $GUI_GR_DOT, 220, 180)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x00FF00)
GUICtrlSetGraphic(-1, $GUI_GR_DOT, 199, 159)
GUICtrlSetGraphic(-1, $GUI_GR_DOT, 241, 200)
WinSetTrans( $Form1, '', 150)
GUISetState()

 

[InnI]

$Form1 = GUICreate("Form1", 104, 67, -1, -1 ,$WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_COMPOSITED, $WS_EX_CONTROLPARENT)) ; <= добавить стиль
$Graphic1 = GUICtrlCreateGraphic(-168, -144, 336, 256)
GUICtrlSetState(-1, $GUI_DISABLE) ; <= заблокировать элемент
...

 

[Norm]

Здесь ещё несколько различных вариантов реализации перемещения окна без рамки