Создание Windows-приложения с радио-кнопками и вариацией цвета

1. Поместить компоненты Label, Panel, GroupBox, RadioButton (страница Standard) в форму.

2. Установить следующие свойства объектов, используя инспектор объектов:

Label1 Caption Светофор

Panel1,2,3 Caption Цвет

GroupBox1 Caption

RadioButton1 Caption Красный

RadioButton2 Caption Желтый

RadioButton3 Caption Зеленый

3. Записать код для процедуры обработки события Click (щелчок мыши) на объекте RadioButton1:

procedure TForm1.RadioButton1Click(Sender: TObject);

Begin

Panel1.Color:=clRed;

Panel2.Color:=clWhite;

Panel3.Color:=clWhite;

End;

Самостоятельно записать код для процедур:

TForm1.RadioButton2Click и TForm1.RadioButton3Click

4. Добавить печать информации «Стойте», «Внимание», «Идите» на панели с соответствующим сигналом белого цвета шрифтом жирного начертания 12 п.

Создание Windows-приложения с цифровыми часами

1. Поместить компоненты Label (страница Standard) и Timer (страница System) в форму Form1.

2. Установить следующие свойства объектов, используя инспектор объектов:

Объект Свойство Значение

Form1 Name Часы

Label1 Caption 00:00:00

Label1 Color clYellow

Label1 Font.Size 24

Label1 Font.Color Красный

3. Записать код обновления времени для процедуры

TClock.Timer1Timer;

procedure TClock.Timer1Timer(Sender: TObject);

Begin

Label1.Caption:=TimeToStr(Time);

End;

4. Выполнить приложение.

5. Сохранить форму и проект на диске в новой папке.

6. Развитие задачи - добавление кнопок регулирования скорости обновления времени.

6.1. Добавить в форму компоненты GroupBox и RadioButton: (компонент GroupBox является контейнером для других компонентов).

6.2. Установить следующие свойства объектов: