Zamknięcie pojedyńczego GUI

[Gość]

Wimat, mam problem z GuiDelete.

Gdy daje przy np. Button1 GuiDelete($form4), zamyka się, lecz w oknach, które zostały blokują się wszystkie opcje, jak to naprawić, czy to jest zły sposób na zamykanie okna?

[hehe7]

Może jakbyś dał ExitLoop, nie wiem ponieważ zgaduje bez kodu. Ale może być tak że kod zostaje w pętli do gui które usuwasz a nie przechodzi do pozostałych okien.

[karolkarol21621]

Możesz zastosować ten wzór z wiki  :

 #include <GUIConstantsEx.au3>

 gui1()

 Func gui1()
     $hGUI1 = GUICreate("Gui 1", 200, 200, 100, 100)
     $hButton1 = GUICtrlCreateButton("Msgbox 1", 10, 10, 80, 30)
     $hButton2 = GUICtrlCreateButton("Show Gui 2", 10, 60, 80, 30)
     GUISetState()

     While 1
         Switch GUIGetMsg()
             Case $GUI_EVENT_CLOSE
                 ExitLoop
             Case $hButton1
                 MsgBox("", "MsgBox 1", "Test from Gui 1")
             Case $hButton2
                 ; Disable the first GUI
                 GUISetState(@SW_DISABLE, $hGUI1)
                 gui2()
                 ; Re-enable the first GUI
                 GUISetState(@SW_ENABLE, $hGUI1)
         EndSwitch
     WEnd
 EndFunc   ;==>gui1

 Func gui2()
     $hGUI2 = GUICreate("Gui 2", 200, 200, 350, 350)
     $hButton3 = GUICtrlCreateButton("MsgBox 2", 10, 10, 80, 30)
     GUISetState()

     While 1
         ; We can only get messages from the second GUI
         Switch GUIGetMsg()
             Case $GUI_EVENT_CLOSE
                 GUIDelete($hGUI2)
                 ExitLoop
             Case $hButton3
                 MsgBox("", "MsgBox 2", "Test from Gui 2")
 		EndSwitch
 	WEnd
 EndFunc   ;==>gui2

[Gość]

Pomógł mi Phoenix na gg ... Lecz tobie też dzięki, sprawdzę, tą metodą od Cb ;P

 

 

@Do zamknięcia.