Что нового

[Окна, Диалоги] Фиксация одного окна возле другого

DjReactive

Новичок
Сообщения
17
Репутация
0
Здравствуйте, хотелось бы узнать, можно ли зафиксировать одно окно скрипта правее другого окна этого же скрипта, чтобы при перемещении окон они перемещались вместе? И как это сделать?

Заранее спасибо! :smile:
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,662
Репутация
2,461
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$hGUI1 = GUICreate('GUI 1')
$hGUI2 = GUICreate('GUI 2')

GUIRegisterMsg($WM_WINDOWPOSCHANGING, 'WM_WINDOWPOSCHANGING')

GUISetState(@SW_SHOW, $hGUI1)
GUISetState(@SW_SHOW, $hGUI2)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func WM_WINDOWPOSCHANGING($hWnd, $iMsg, $wParam, $lParam)
	Local $aPos1 = WinGetPos($hGUI1)
	Local $aPos2 = WinGetPos($hGUI2)
	Local $iBorder = ($aPos2[2] - WinGetClientSize($hGUI1)[0]) * 1.5
	
	Switch $hWnd
		Case $hGUI1
			WinMove($hGUI2, '', $aPos1[0] + $aPos1[2] + $iBorder, $aPos1[1])
			
			If Not WinActive($hGUI2) Then
				;WinActivate($hGUI2)
			EndIf
		Case $hGUI2
			WinMove($hGUI1, '', $aPos2[0] - $aPos1[2] - $iBorder, $aPos2[1])
			
			If Not WinActive($hGUI1) Then
				;WinActivate($hGUI1)
			EndIf
	EndSwitch
EndFunc
 
Автор
D

DjReactive

Новичок
Сообщения
17
Репутация
0
Да, это работает, спасибо! А можно ли сделать, чтобы оба окна оставались активными?
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,662
Репутация
2,461
DjReactive [?]
можно ли сделать, чтобы оба окна оставались активными?
Можно, в примере раскомментировать строчки с WinActivate, но это будет тормозить перемещение окон.
 
Верх