Na początek stworzymy prostą aplikację wyświetlającą aktualną godzinę.

Uruchamiamy Delphi, w górnym Menu wybieramy File|New|Application.
Aby zrobić program będzie nam potrzebny obiekt wyświetlający liczby. Posłuży za niego TLabel(W zakładce standard, ikona „A”). Zaznaczamy i przeciągamy komponent w dowolne miejsce formularza.

Następnie przechodzimy do zakładki System, wybieramy TTimer(zegar) oraz przeciągamy na formę. Timer będzie odczytywał z systemu aktualną godzinę. Zaznaczamy go, a następnie w ObjectInspector wybieramy opcję Interval, domyślnie jest tam 1000 ms czyli 1s. Parametr oznacza, co ile milisekund ma wykonywać operacje z procedury OnTimer. Pozostawiamy w polu liczbę 1000. Teraz w Object Inspector wybieramy zakładkę Events, a tam klikamy dwa razy na OnTimer.

Każda procedura rozpoczyna się od begin a kończy end. Pomiędzy nimi zapisujemy:

Polecenie powoduje wyświetlanie aktualnej godziny na obiekcie tekstowym Label1.

To już koniec 🙂 Czyż nie proste? Wciśnij klawisz F9 i sprawdź czy dobrze działa. Poniżej całkowity kod programu:

Autor: Nakiel