Manchmal kann es sinnvoll sein, die aktuelle Zeit in einem Eingabeformular anzuzeigen. Dies ist durch die Funktion Set Timerund das dazu passende Formularereignis On Timereinfacher geworden.
Zur Vorgehensweise:
Case of :(Form event=On Load ) `wird das Formular geladen timeCurrentTime:=Current time SET TIMER(60) `Zeiteinstellung für das Timer-Ereignis :(Form event=On Timer ) `tritt ein Timer-Ereignis ein timeCurrentTime:=Current time `so wird die Uhrzeit aktualisiert End case
Die Funktion Set Timer erzeugt automatisch alle 60 Ticks ein Formularereignis On Timer - ein Tick ist etwa 1/60-stel Sekunde. Jedesmal, wenn das Ereignis erzeugt wird, wird auch die Variable aktualisiert, die die Zeit anzeigt. Natürlich muss in den Formulareigenschaften das Formularereignis On Timer zugelassen sein, sonst reagiert das Formular nicht auf die Zeitzuweisung bzw. -aktualisierung. Dieser Code wird in einer Client-Server Umgebung nur auf dem Client ausgeführt und beeinträchtigt den Server nicht.
Alternativ können Sie die zum 4D Pack gehörende Uhr verwenden. Doku External Clock
Siehe auch Clock