Программа №3

Работа с двумя формами

Запустите Lazarusи создайте новую форму:

Вставим в форму №1 такие компоненты и изменин их такие свойства:

	Label1	Button1	Button2
Caption	Изменить цвет формы?	Да	Нет
Font	Times New Roman, 16, жирный курсив, оливковый	Times New Roman, 16, жирный курсив	Times New Roman, 16, жирный курсив
AutoSize	False

Далее создаем вторую форму. Это можно сделать двумя способами:

1. Файл→ Создать форму

2. Пиктограмма

Теперь следует сохранить проект. Unit1 назовем main, а Unit2- u_f2.

Далее работаем с формой №1. Нажмите дважды на Да, откроется Редактор кода:

В implementation пишем:

uses u_f2;

Далее в begin:

u_f2. Form2. Show;

Этот код для запуска формы№2. А для кнопки Нет в begin пишем:

Close;

Далее надо открыть форму№2. Нажмите на пиктограмму и откроютя все имеющиеся формы. Вам следует нажать на Form2:

Размещаем на форме№2 такие компоненты:

Свойства	Label1	CheckBox1	CheckBox2	CheckBox3	Button1
Caption	Выберите цвет	Черный	Зеленый	Красный	Изменить
Font	Times New Roman, 16, жирный курсив, оливковый

Теперь работаем с кнопкой. Нажмите дважды на Изменить, откроется Редактор кода. В implementation пишем:

uses main;

Это нужно для соединения форм:

Теперь в begin пишем:

if CheckBox1. Checked

Then Form1. Color: =clBlack;

If CheckBox2. Checked

Then Form1. Color: =clGreen;

If CheckBox3. Checked

Then Form1. Color: =clRed;

Затем сохраняем и компилируем.