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.
|
1 2 3 4 5 6 |
procedure TForm1.Timer1Timer(Sender: TObject); begin end; |
Każda procedura rozpoczyna się od begin a kończy end. Pomiędzy nimi zapisujemy:
|
1 |
Label1.Caption:=TimeToStr(time); |
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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=TimeToStr(time); end; end. |
Autor: Nakiel