Quelqu'un pourrait-il tester le code suivant (créé et testé uniquement sous Vista) en mode Support des thèmes XP activé et me dire si il constate la même anomalie que moi ?
Code : Tout sélectionner
Procedure OuvertureFenetreFille()
DisableWindow(0,#True)
OpenWindow(1,0,0,100,100,"Fenêtre fille",#PB_Window_SystemMenu|#PB_Window_WindowCentered,WindowID(0))
ButtonGadget(3,8,8,92,28,"&Quitter")
AddKeyboardShortcut(1,#PB_Shortcut_Alt|#PB_Shortcut_Q,1002)
EndProcedure
Procedure FermetureFenetreFille()
RemoveKeyboardShortcut(1,#PB_Shortcut_Alt|#PB_Shortcut_Q)
CloseWindow(1)
DisableWindow(0,#False)
EndProcedure
If OpenWindow(0,0,0,100,100,"Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(0,8,8,92,28,"&Fenêtre fille")
ButtonGadget(1,8,50,92,28,"&Quitter")
AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_F,1000)
AddKeyboardShortcut(0,#PB_Shortcut_Alt|#PB_Shortcut_Q,1001)
Repeat
Select EventWindow()
Case 0
Select WaitWindowEvent()
Case #PB_Event_Menu
Select EventMenu()
Case 1000:OuvertureFenetreFille()
Case 1001:End
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case 0:OuvertureFenetreFille()
Case 1:End
EndSelect
Case #PB_Event_Menu
EndSelect
Case 1
Select WaitWindowEvent()
Case #PB_Event_Menu
Select EventMenu()
Case 1002:FermetureFenetreFille()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case 3:FermetureFenetreFille()
EndSelect
EndSelect
EndSelect
ForEver
EndIf



Le hotkey (&Q) de la fenêtre fille n'apparaît seulement que si on l'ouvre à partir du raccourci-clavier (&F) de la fenêtre mère

J'ai testé cette anomalie de toutes les manières possibles (débogueur activé/désactivé, compiler, exécuter, exécutable) et le résultat est toujours le même !
Quelqu'un saurait-il d'où vient cette bizarrerie (bug dans mon code ? bug Windows ? Vista ? PB ? ...) et si il y a un moyen de résoudre/contourner ce problème ?
Merci.