Цитата eus_deus:
как вызвать одну форму из другой, чтобы обе формы взаимно видели элементы друг друга »
|
Как то так:
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$hForm1 = GUICreate('Form1', 300, 200, 100, 100)
$hForm2 = GUICreate('Form2', 300, 200, 450, 100)
$aForm1_Elements = _FormElements($hForm1)
$aForm2_Elements = _FormElements($hForm2)
GUISetState(@SW_SHOW, $hForm1)
GUISetState(@SW_SHOW, $hForm2)
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $GUI_EVENT_CLOSE
Exit
Case $aForm1_Elements[1] To $aForm1_Elements[$aForm1_Elements[0]]
MsgBox(64, 'Event', 'Event from element (' & GUICtrlRead($iMsg, 1) & ') in form 1', 0, $hForm1)
Case $aForm2_Elements[1] To $aForm2_Elements[$aForm2_Elements[0]]
MsgBox(64, 'Event', 'Event from element (' & GUICtrlRead($iMsg, 1) & ') in form 2', 0, $hForm2)
EndSwitch
WEnd
Func _FormElements($hForm)
GUISwitch($hForm)
Local $aRet[3] = [2]
$aRet[1] = GUICtrlCreateButton('Button1', 20, 20, 60, 20)
$aRet[2] = GUICtrlCreateButton('Button2', 20, 40, 60, 20)
Return $aRet
EndFunc