1. Помістити компоненти Label (сторінка Standard) і Timer (сторінка System) у форму Form1.
2. Установити наступні властивості об'єктів, використовуючи інспектор об'єктів:
Об'єкт
| Властивість
| Значення
|
Form1
Label1
Label1
Label1
Label1
| Name
Caption
Color
Font.Size
Font.Color
| Годинник
00:00:00 clYellow
Червоний
|
3. Записати код відновлення часу для процедури
TClock.Timer1Timer:
procedure TClock.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Time);
end;
4. Виконати додаток.
5. Зберегти форму і проект на диску в новій папці.
6. Розвиток задачі - додавання кнопок регулювання швидкості відновлення часу.
6.1. Додати у форму компонента GroupBox і RadioButton:
(компонент GroupBox є контейнером для інших
компонентів).
6.2. Установити наступні властивості об'єктів:
GroupBox1 Caption Швидкість
RadioButton1 Caption Повільно
RadioButton2 Caption Помірковано
RadioButton3 Caption Швидко
6.3. Записати коддля процедури TForm1.RadioButton3Click:
Timer1.Interval := 1000;
Цей код реалізує зміна властивості Interval об'єкта
Timer1.
Самостійно записати код для процедур:
TForm1.RadioButton1Click (3000) і TForm1.RadioButton2Click (2000)
6.4. Виконати додаток і зберегти результати.