Hilfe bei Uhrzeitanzeige

[sim0n]

Kann mir jemand sage, wie ich die aktuelle Uhrzeit auf einem Fenster anzeigen kann, ohne das Fenster lahm zu legen??

So wird nämlich alles lahm gelegt:

Code: Alles auswählen

Repeat
  StartDrawing(WindowOutput())
  DrawText(Str(Hour(Date())) + " : " + Str(Minute(Date())) + " : " + Str(Second(Date())))
  StopDrawing()
ForEver 

Vielen Dank im vorraus!

[MVXA]

is auch kein wunder

Code: Alles auswählen

Repeat
    EventID.l = WindowEvent()
    StartDrawing(WindowOutput())
    DrawText(Str(Hour(Date())) + " : " + Str(Minute(Date())) + " : " + Str(Second(Date())))
    StopDrawing()
    Delay(1)
Until EventID = #PB_Event_CloseWindow

das Delay stopt das programm für eine millisekunde. das gibt dem Prozessor und Windows zeit, andere aufgaben zu erledigen. WindowEvent() fragt ab, was der user mit dem Fenster gemacht hat. Das Until EventID = #PB_Event_CloseWindow bricht die Schleife ab, wenn der User das fenster geschlossen hat.

[sim0n]

Dankeschön für die schnelle Hilfe!