Code: Alles auswählen
If OpenWindow(0,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget,"test")
If CreateGadgetList(WindowID(0)) And CreateMenu(1, WindowID(0))
MenuTitle("Menü")
MenuItem(1,"Neues Fenster")
MenuTitle("Ansicht")
MDIGadget(0, 0, 0, 0, 0, 1, 2, #PB_MDI_AutoSize)
CloseGadgetList()
Repeat
EventID = WaitWindowEvent()
If EventType()=#PB_EventType_CloseItem
RemoveGadgetItem(0, GetGadgetState(0))
EndIf
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
If EventID = #PB_EventMenu
If EventMenuID()=1
AddGadgetItem(0,-1,"Fenster 1")
EndIf
EndIf
Until Quit=1
EndIf
End
EndIf
Wäre für jede Hilfe dankbar!