Top.Mail.Ru

Pascal Windows Forms. Радуга

Знакомство с элементами управления форма (Form), кнопка (Button), метка(Label). Разработаем приложение, в котором можно было бы изменять цвет формы с помощью кнопок. При этом на форме должно выводиться название цвета. 

Для изменения цвета, используем элемент управления Button (кнопка). Для отображения названий цветов используем элемент управления Label (метка). Для закрытия приложения используем еще один элемент управления Button.

vpf rad

Все действия программы происходят при щелчке по кнопке – следовательно, необходимо запрограммировать реакции приложения на события Click для каждой кнопки. Например, при щелчке по кнопке «Красный» нужно:

изменить цвет формы – свойство формы Backcolor:

Backcolor:=Color.Red;

текст метки – свойство Text элемента управления Label:

Label.Text:='Красный';

Для настройки цвета в Pascal Windows Forms можно использовать стандартные цвета класса Color:

Константа Цвет Константа Цвет
Black Черный Silve Серебристый
Maroon Каштановый Red Красный
Green Зеленый Lime Салатовый
Olive Оливковый Blue Синий
Navy Темно-синий Fuchsia Ярко-розовый
Purple Розовый Aqua Бирюзовый
Teal Лазурный White Белый
Gray Серый Pink Розовый

 

Откройте Pascal, и создайте Новый проект. Выполните команду Файл -> Сохранить все…. В окне диалога Сохранить укажите папку, в которую будет сохранен проект (Радуга), имя файла проекта укажите project1. Во втором окне диалога задайте имя модуля unit1. Свойству Text формы задайте значение Радуга. Размеры формы установите: ширина (Width) - 300, высота (Height) - 300.

Поместите на форму 8 элементов управления Button и один элемент управления Label, и расположите их как на рисунке выше. Задайте соответствующие имена элементам управления (свойства Name): кнопкам – btnRed, btnOrange, btnYellow, btnGreen, btnBlue, btnNavy, btnViolet, btnExit, метке – lbColor.

Обработчик события Click для кнопки BtnRed:

procedure Form1.btnRed_Click(sender: Object; e: EventArgs);
begin
lbColor.Text := 'Красный';
BackColor := Color.Red;
end;

Для остальных кнопок с цветом создайте обработчики события аналогично.

Обработчик события Click для кнопки btnExit:

procedure Form1.btnExit_Click(sender: Object; e: EventArgs);
begin
Close();
end;