Sofort beenden bei Shutdown umgehen?

[Bisonte]

Du meinst in etwa so ... :

=> <=

oder in Worten : Viele Events -> lange warten -> eine Eventdurchreiche ( WindowEvent() )

[ts-soft]

Du meinst in etwa so ... :

Ich meinte, statt:

Code: Alles auswählen

Repeat
  Select WaitWindowEvent()
    Select EventGadget()
      Case #btnPoppel
        FuenfMinutenInDerNasePoppeln()
    EndSelect
  EndSelect
ForEver

in etwa so:

Code: Alles auswählen

Procedure Poppel()
  Static time
  If time < 5 Minuten
    ... poppelfür 10 sekunde
  EndIf
  time + 10 sekunden
EndProcedure

Repeat
  Select WaitWindowEvent()
    Select EventTimer()
      Case #timePoppel
        Poppel()
    EndSelect
  EndSelect
ForEver