Создадим переход с Титульной формы на форму Меню. Для этого нужно перейти на Титульную форму.

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
Продолжить (кнопка)	Events	OnClick	U_Menu.ShowModal ; Кроме того, нужно описать в модуле F_Title.pas внешнее имя F_Menu, разместив его в блоке реализации (implementation): uses F_Menu;

Сохраните выполненную работу (File – Save All). Запустите программу на выполнение и проверьте правильность ее работы:

• переход с Титульной формы на форму Меню;

• выход из проекта.

Создать форму Помощь.

6.1. В меню File с помощью команды New открывается окно New Items (рисунок 22), при помощи которого можно создать новую форму.

Рисунок 22

На странице Forms выберите форму Tabbed pages. Перед вами появится стандартное окно новой формы Tabbed Notebook Dialog (рисунок 23).

Рисунок 23

Рассмотрите список содержащихся в ней объектов, для чего вызовите весь список. Форма построена на основе компонента TPageControl и содержит несколько перекрывающих друг друга панелей класса TTabSheet. Каждая панель выбирается связанной с ней закладкой и может содержать свой набор помещенных на нее компонентов. Чтобы на этапе конструирования добавить новую панель или выбрать ранее вставленную, щелкните по компоненту правой кнопкой мыши и выберите New Page (новая панель), Next Page (следующая панель) или Previous Page (предыдущая панель). Смена панелей идет циклически.

6.2. Удалите компоненты кнопок ok и Help.

6.3. Заменить название кнопки Cancel на Выход и дать ей значение Close.

6.4. Измените название формы, для чего в Object Inspector откройте список объектов, выберите PagesDlg:

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
PagesDlg1	Propeties	Caption	Помощь
		Name	Заменить на U_Instr

6.5. Дайте страницам названия Правила работы, Тематика теста, Авторские права, для этого в свойстве Caption замените соответственно TabSheet1, TabSheet2, TabSheet3.

6.6. Заполните страницы формы Tabbed Notebook Dialog текстом инструкции, для чего на каждую страницу добавьте компонент Memo из палитры компонентов Standard. Для ввода текста в объект Memo нужно инициировать строку ввода для свойства Lines и справа нажать на кнопку с тремя точками. В появившемся окне встроенного редактора ввести необходимый текст.

Для того чтобы вставленный объект совпадал по цвету с формой, выполните следующие действия:

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
Memo	Propeties	Color (совпадение по цвету с фоном формы)	clBtnFace
		Ct3D (отмена трехмерного эффекта объекта)	False
		BorderStyle (отмена рамки)	bsNone
		Font (выбор шрифта)
		Alignment (выравнивание текста)

6.7. Сохраните созданную форму под именем F_Instr.pas.

Создадим переход с формы Меню на форму Помощь. Для этого нужно перейти на форму Меню и установить курсор на опции Помощь, щелкнуть клавишей мыши и внести изменения в процедуру обработки:

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
Помощь (кнопка)	Events	OnClick	U_Instr.ShowModal; Кроме того, нужно описать в модуле F_Menu.pas внешнее имя F_Instr, разместив его в блоке реализации (implementation): uses F_Instr;

6.9. Сохраните выполненную работу (File – Save All). Запустите программу на выполнение и проверьте правильность ее работы:

• переход с Титульной формы на форму Меню;

• переход с формы Меню на форму Помощь;

• выход из Помощи.

Создать форму Тестирование (U_Test).

7.1. Пусть наша форма Тестирования будет построена на основе стандартной формы Tabbed Notebook Dialog и будет содержать 5 вопросов (5 панелей TtabSheet).

Рисунок 24

При создании тестов по географии можно использовать следующие вопросы:

Вопрос 1

За начало отсчета географической долготы места принят

• Экватор

• Меридиан 180⁰

• Нулевой меридиан +

• Северный полюс

Вопрос 2

Линии, соединяющие на климатических картах точки с одинаковым атмосферным давлением, называются

• Горизонталями

• Изометмами

• Изобарами +

• Изогиетами

Вопрос 3

Артезианскими называются воды

• Почвенные

• Грунтовые +

• Межпластовые ненапорные

• Межпластовые напорные

Вопрос 4

Основным географическим следствием шарообразной формы Земли являются

• Смена дня и ночи

• Смена времени года

• Широтная зональность +

• Высотная поясность

Вопрос 5

Образование пояса низкого атмосферного давления в экваториальных широтах обусловлено прежде всего

• Низкими температурами воздуха

• Высокими температурами воздуха +

• Деятельностью циклонов

• Деятельностью антициклонов

7.2. Самостоятельно создайте форму Тестирования и переход на нее из формы Меню. Для этого повторите все шаги, которые были сделаны при создании формы Помощь (см. пункт 6). Сохраните созданную форму под именем F_Test.pas.

7.3. Для правильного контроля выполнения тестирования сделайте так, чтобы последовательно были доступны сначала только первый вопрос, затем только второй и т.д. Для этого предусмотрите дополнительную кнопку завершения тестирования каждого вопроса.