Создание Windows-приложения, в котором работают цифровые часы с разной скоростью
1. Поместить компоненты Label и Timer (System) в форму Form1.
2. Установить следующие свойства объектов:
Объект | Свойство | Значение |
Form1 Label1 Label1 Label1 Label1 | Name Caption Color Font.Size Font.Color | Clock 00:00:00 clYellow Красный |
3. Записать код обновления времени для процедуры TClock.Timer1Timer:
Label1.Caption:=TimeToStr(Time);
4. Добавление кнопок регулирования скорости обновления времени.
4.1. Добавить в форму компоненты GroupBox и RadioButton:
4.2. Установить следующие свойства объектов:
GroupBox1 Caption Скорость
RadioButton1 Caption Медленно
RadioButton2 Caption Умеренно
RadioButton3 Caption Быстро
4.3. Записать код для процедуры TForm1.RadioButton3Click:
Timer1.Interval:= 1000;
Самостоятельно записать код для процедур:
TForm1.RadioButton1Click (3000) и TForm1.RadioButton2Click (2000)
Упражнение 5