Code: Select all
#Main = 0
#MDIChild = 1
If OpenWindow(#Main, 0, 0, 400, 300, "MDIGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget)
If CreateGadgetList(WindowID(#Main)) And CreateMenu(#Main, WindowID(#Main))
MenuTitle("Menu index 0")
MenuTitle("MDI windows menu")
MenuItem(0, "self created item")
MenuItem(1, "self created item")
MDIGadget(0, 0, 0, 0, 0, 1, 2, #PB_MDI_AutoSize)
For k.w = 0 To 3
AddGadgetItem(0, #MDIChild + k, "child window")
Next
; CreateGadgetList(WindowID(#MDIChild))
; add gadgets here...
UseGadgetList(WindowID(#Main)) ; wir gehen zurück zur Gadgetliste des Hauptfensters
EndIf
RemoveKeyboardShortcut(#Main, #PB_Shortcut_F6)
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
Cycling forward all childs is done with >F6<, but one can not remove >F6< from the shortcut-list (while >Tab< and >Shift-Tab< can be removed) to prevent cycling the childs if using F6 for an user-defined command.
Is this a Win restriction? Using WinXP / PB4beta7 / 8.
Sven