3 (2238)

Rozdział 12. ♦ Odmierzanie czasu — komponent TTimer 129

Rozwiązanie

Zadanie można rozwiązać dzięki wykorzystaniu funkcji GetTickCount. Wstaw przycisk i dwie etykiety. Oto treść procedury obsługi kliknięcia przycisku:

{$J+} //dyrektywa do stałej typowanej const procedurę TForml.ButtonlClick(Sender: TObject); const i:longword=0: begin

Label1.Capti on:=Label1.Capti on+#13+Inttostr(GetTi ckCount): Label2.Caption:=IntToStr(GetTickCount-i); //od aktualnej wartości odejmowana

//jest poprzednia wartość funkcji GetTickCount

i:“GetTickCount; end;

Przykład 12.4.

Korzystając z komponentu TTimer wyświetl na formularzu przesuwający się napis na etykiecie — rysunek 12.2.

Rysunek 12.2.

Przesuwający się napis

Rozwiązanie

Wstaw etykietę TLabel i przypisz właściwości Capti on tekst Napis->. Dodaj komponent TTimer z zakładki System. Właściwości Interval przypisz wartość 100, co oznacza wykonanie procedury obsługi zdarzenia OnTimer co 100 ms.

Kliknij dwukrotnie komponent TTimer i w procedurze obsługi przerwania od Ti mera wpisz instrukcje umożliwiające przesuwanie etykiety na formularzu cyklicznie w prawo.

procedurę TForml.TimerlTimer(Sender: TObject): begin

Label 1.Left:=(Label1.Left+5) mod Width; end: