Re: Déplacer à la souris une petite fenêtre sans bordure
Publié : lun. 24/mars/2014 12:14

Forums PureBasic - Français
http://forums.purebasic.com/french/
Code : Tout sélectionner
If OpenWindow(0, 100, 200, 400, 400, "N°1", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
OpenWindow(1, 600, 200, 400, 400, "N°2", #PB_Window_BorderLess, WindowID(0))
ButtonGadget(0, 10, 10, 100, 20, "Quit")
MessageRequester("Information", "Après le clic sur le bouton, la fenêtre N°1 va être caché", 0)
HideWindow(0,1)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventType()
Case 0
Debug "Evénement du Bouton 'Quit' de la fenêtre N°2"
Quit = 1
EndSelect
Case #PB_Event_CloseWindow
Quit = 1
EndSelect
Until Quit = 1
EndIf
End