Практическая работа № 19

«Головоломка № 2»

Цель работы -создать компьютерную версию головоломки: из изображенных пяти сброшенных флажков установить все. Но при выборе одного флажка меняется состояние двух следующих.

Создать программу, выполняющую следующие действия:

1. После запуска программы в окне изображаются пять сброшенных флажков.
2. Щелкать разрешено только на сброшенных флажках. Щелчок на установленном флажке не действует.
3. При установке какого-то флажка меняется состояние двух следующих флажков. При этом сброшенные флажки устанавливаются, а установленные - сбрасываются.
4. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: список флажков CheckBox, надпись Label.

3. Выполнить следующие действия:

Таблица 21.

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Form1	Properties	Caption	Установка имени формы «Все пять»
	Events	OnCreate	Создать глобальную логическую переменную s. В то время, когда идет обработка события, переменная имеет значение True (да).
CheckBox1 (Вкладка Standard)	Properties	Caption	Задать значение «1».
Events	OnClick	Необходимо работать с флажками, как с массивом. Форма является контейнером для флажков. У объектов-контейнеров имеется свойство Controls (Элементы управления) – массив элементов управления, находящихся в данном контейнере: Controls [i] as TCheckBox.
Для создания еще пяти флажков можно использовать метод копирования через буфер обмена.
CheckBox2	Properties	Caption	Задать значение «2».
CheckBox3	Properties	Caption	Задать значение «3».
CheckBox4	Properties	Caption	Задать значение «4».
CheckBox5	Properties	Caption	Задать значение «5».

			Продолжение таблицы 21.
Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Label1 (Вкладка Standard)	Properties	Caption	Введите текст: «Сумма: 0»
Autosize	Задайте значение False
Alignment	Задайте значение taCenter

4. Сохраните проект, запустите и протестируйте его.