Code: Select all
Enumeration
#MainWindow
#ChildWindow
#MainButton1
#MainButton2
#ChildButton1
#ChildButton2
EndEnumeration
; open main window and create one button
OpenWindow(#MainWindow, 0, 0, 1000, 580, "Main window", #PB_Window_SystemMenu | #PB_Window_TitleBar)
SetWindowColor(0, RGB(191,255,255))
ButtonGadget( #MainButton1, 200, 100, 50, 30, "MB1 " )
; open child window and create one button
OpenWindow(#ChildWindow, 100, 100, 500, 400, "Child Window", #PB_Window_TitleBar, WindowID(#MainWindow))
ButtonGadget( #ChildButton1, 300, 200, 50, 30, "CB 1" )
; hide child window and create another button in main window
HideWindow(#ChildWindow, #True )
SetActiveWindow(#MainWindow)
ButtonGadget( #MainButton2, 300, 300, 50, 30, "MB 2" ) ;<<<< button appears in the child window
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
i = GetActiveGadget ()
Select i
Case #MainButton1
SetActiveWindow( #ChildWindow )
HideWindow(#ChildWindow, #False )
Case #ChildButton1
HideWindow(#ChildWindow, #True )
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow ; Quit on any window close