reset86
Новичок
- Сообщения
- 47
- Репутация
- 0
Закрепить несколько окон к верхнему одному, при перетаскивании, за ним перетаскиваются все окна, сейчас перетаскивается только одно.
Проблему решил, сам.
Рабочий вариант. Может кому пригодится.
Проблему решил, сам.
Рабочий вариант. Может кому пригодится.
Код:
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
Global $GUI=0, $GUI2=0, $GUI3=0
$GUI = GUICreate("", 805, 0, -1, -1, -1, $WS_EX_TOPMOST)
GUISetState()
GUIRegisterMsg($WM_MOVE, "WM_MOVE")
$pos = WinGetPos($GUI)
$GUI2 = GUICreate("", 400, 400, $pos[0]+3, $pos[1]+$pos[3]+1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState()
$posa = WinGetPos($GUI)
$GUI3 = GUICreate("", 400, 400, $posa[0]+408, $posa[1]+$posa[3]+1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetState()
Do
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Until 0
Func WM_MOVE()
Local $pos = WinGetPos($GUI)
If WinExists($GUI2) Then WinMove($GUI2, "", $pos[0]+3, $pos[1]+$pos[3]+1)
Local $posa = WinGetPos($GUI)
If WinExists($GUI3) Then WinMove($GUI3, "", $posa[0]+408, $posa[1]+$posa[3]+1)
EndFunc