PureBoard

Besser einen richtigen Timer nehmen:

Procedure TimerProc(hWnd.l, uMsg.l, idEvent.l, dwTime.l)
If idEvent = 1
Debug "hallo"
EndIf
EndProcedure

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "test")
SetTimer_(WindowID(0), 1, 100, @TimerProc())

While WaitWindowEvent() <> 16 : Wend ...

sorry, aber

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "test")
Repeat
Select WaitWindowEvent(10000)
Case #PB_Event_CloseWindow
End
Case 0 ; timeout
Debug FormatDate("%hh:%ii:%ss", Date())
EndSelect
ForEver
EndIf

führt bei mir zu dreimaliger Ausgabe derselben Uhrzeit. Außerdem ...

richtig, leider wird dann aber auch auf andere Ereignisse (z.B. Fensterwechsel) reagiert

pol...

MoinMoin

Ich suche eine Möglichkeit das Event 'Timeout abgelaufen' auszuwerten:

Event = WaitWindowEvent(Timeout)
Select Event
Case #PB_Event_Gadget
...blabla
Case #PB_Event_CloseWindow
... alles beenden
Case was_muss_hier_stehen
--> hier steht der Code der nur nach dem Timeout abgearbeitet ...