Ich habe eine Haupt-Windows und mit START wird eine zweite Windows aufgebaut.
Ich möchte die event in jeden Windows haben. Geht leider nicht.
Wenn ich mit START den zweite Windows aufbaut, kann ich die Button in Window_1 nicht verwenden: es sei dem ich kopier es wie in
Case #ButtonStart:Debug "START 2"
Gibt es da ein bessere Lösung als so?
Code: Alles auswählen
Enumeration
#Window_0
#Window_1
EndEnumeration
Enumeration
; window_0
#ButtonStart
#ButtonStop
; window_1
#ButtonOK
EndEnumeration
Procedure window1()
OpenWindow(#Window_1, 0, 0, 470, 210, "Win 0", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(#ButtonOK, 180, 30, 80, 30, "OK")
Repeat
Event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
Select EventGadget()
Case #ButtonOK:Debug "OK"
;main (Kopie windoe_0
Case #ButtonStart:Debug "START 2"
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
CloseWindow(#Window_1)
EndProcedure
OpenWindow(#Window_0, 0, 0, 470, 210, "Win 0", #PB_Window_SystemMenu)
ButtonGadget(#ButtonStart, 180, 30, 80, 30, "START")
ButtonGadget(#ButtonStop, 180, 110, 80, 30, "STOP")
Repeat
Event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
Select EventGadget()
Case #ButtonStart:Debug "START"
window1()
Case #ButtonStop:Debug "STOP"
If IsWindow(#Window_1)
CloseWindow(#Window_1)
EndIf
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
MarcelX
EDIT
Code: Alles auswählen
Enumeration
#Window_0
#Window_1
EndEnumeration
Enumeration
; window_0
#ButtonStart
#ButtonStop
; window_1
#ButtonOK
EndEnumeration
Procedure window1()
OpenWindow(#Window_1, 0, 0, 470, 210, "Win 0", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(#ButtonOK, 180, 30, 80, 30, "OK")
EndProcedure
OpenWindow(#Window_0, 0, 0, 470, 210, "Win 0", #PB_Window_SystemMenu)
ButtonGadget(#ButtonStart, 180, 30, 80, 30, "START")
ButtonGadget(#ButtonStop, 180, 110, 80, 30, "STOP")
Repeat
Event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
Select EventGadget()
Case #ButtonStart:Debug "START"
window1()
Case #ButtonStop:Debug "STOP"
If IsWindow(#Window_1)
CloseWindow(#Window_1)
EndIf
; case Window_1
Case #ButtonOK:Debug "OK"
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow