Je me demande si c'est moi ou s'il y a un problème avec les fenêtres multiples. J'ai dû rater un truc, mais quand même ça m'interpelle...
Essayez ce code simple et dites moi si ça vous le fait aussi. Les problèmes surviennent à la fermeture des fenêtres.
Dans cet exemple, je fais apparaître la fenêtre seconde puis la referme et là ça bug si je veux rouvrir la fenêtre puis la fermer. Même la fenêtre mère ne se ferme pas, il faut cliquer trois fois sur la croix ou le bouton.
Précisons que j'ai les mêmes problèmes si j'appelle mes fenêtres dans des procédures et dans du code plus complexe, ou encore en "thread"
Arf, ça fait un brin que je cherche en vain...
Version PB : 5.42 et Windows 10
Code : Tout sélectionner
If OpenWindow(0, 0, 0, 220, 120, "Exemple...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget (1, 10, 30, 200, 30, "Fermer")
ButtonGadget (2, 10, 70, 200, 30, "Fenêtre seconde")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
CloseWindow(0)
End
Case 2
If OpenWindow(1, 0, 0, 220, 120, "Fenêtre seconde", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget (3, 10, 30, 200, 30, "Fermer")
Repeat
Event1 = WaitWindowEvent()
Select Event1
Case #PB_Event_Gadget
Select EventGadget()
Case 3
CloseWindow(1)
EndSelect
EndSelect
Until Event1 = #PB_Event_CloseWindow
EndIf
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
End
EndIf
