Opt("TrayMenuMode", 7)
Opt("TrayOnEventMode", 1)
Opt("GUIOnEventMode", 1)
Global $Gui1
$Viewer =TrayCreateItem('Gui')
TrayItemSetOnEvent(-1, "_Gui")
$Exit =TrayCreateItem('Выход')
TrayItemSetOnEvent(-1, "_Exit")
$Gui = GUICreate("Forum", 370, 140)
GUISetState(@SW_HIDE, $Gui)
GUISetState(@SW_DISABLE, $Gui)
While 1
Sleep(1000)
WEnd
Func _Gui()
$Gui1 = GUICreate('Gui', 220, 290, -1, -1, -1, -1, $Gui)
GUISetOnEvent(-3, "_Exit1")
GUICtrlCreateButton("Кнопка", 10,10, 90, 35)
GUISetOnEvent(-1, "_Start")
GUISetState()
EndFunc
Func _Start()
MsgBox(0, 'Message', 'Проверка')
EndFunc
Func _Exit1()
GUIDelete($Gui1)
EndFunc
Func _Exit()
Exit
EndFunc |
