2 (2409)

128 Aplikacje w Delphi. Przykłady

128 Aplikacje w Delphi. Przykłady

Rysunek 12.1.

Zegar cyfrowy na etykiecie

Rozwiązanie

Na formularzu umieść etykietę TLabel i komponent TTimer z zakładki System. W procedurze obsługi przerwania od Timera wpisz instrukcje, jak w procedurze poniżej:

procedurę TFortnl.TimerlTimerCSender: TObject): begin

Labeł1.Capti on:=TimeToStr(Time); end;

Można również powiększyć czcionkę na etykiecie i zmienić jej krój na Courier New, co spowoduje, że wyświetlany czas będzie zajmował na etykiecie tyle samo miejsca, niezależnie od wyświetlanej godziny (szerokość znaków w czcionce Courier New jest taka sama).

Zegar pojawi się na etykiecie dopiero po 1000 ms (Interval). Wyświetlenie zegara zaraz po uruchomieniu programu można uzyskać wpisując w procedurze obsługi zdarzenia OnCreate dla formularza tę samą instrukcję co w powyższej procedurze.

Przykład 12.2.

Napisz program, który o godz. 15:00 wyświetli na ekranie okienko komunikatu z napisem: Koniec pracy. Wykorzystaj procedurę obsługi przerwania od Timera.

Rozwiązanie

Na formularzu umieść komponent TTimer z zakładki System. W procedurze obsługi przerwania od Timera wpisz instrukcje, jak w procedurze poniżej:

procedurę TForml.TimerlTimertSender: TObject): begin

if TimeToStr(Time)='15:00:00’ then ShowMessageC'Koniec pracy!’): end;

Zadanie to również możemy wykonać innym sposobem, np. korzystając z funkcji DecodeTime i sprawdzając godzinę, minuty i sekundy. Przedstawiony powyżej sposób jest jednak dużo prostszy.

Przykład 12.3.

Po każdym kliknięciu przycisku wyświetl na jednej etykiecie czas w milisekundach, który upłynął od chwili startu komputera, a na drugiej etykiecie czas, jaki upłynął od poprzedniego kliknięcia.