Fensterpause
Verfasst: 21.01.2015 13:44
kann ich eine pause in mein Fenster einfügen so dass niemand mehr was machen kann
zum beispiel Buttons drücken?
zum beispiel Buttons drücken?
Code: Alles auswählen
EnableExplicit
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(1, 10, 10, 100, 20, "Button", 0)
DisableWindow(0, 1)
Debug "Fenster wurde deaktiviert"
AddWindowTimer(0, 123, 3000)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Timer
If EventTimer() = 123
DisableWindow(0, 0)
Debug "Fenster wurde wieder aktiviert"
RemoveWindowTimer(0, 123)
EndIf
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIf