Указания к выполнению работы

 

Создайте в личном каталоге поддиректорию L_r_№3  для сохранения файлов проекта ПП.

Запустите Delphi. Откройте пример проекта MDI Application.

Для этого выполните следующие действия:

- выберите команду главного меню File|New среды Delphi;

- в появившемся диалоговом окне New Items со страницы Projects выберите шаблон MDI Application и на запрос укажите путь к рабочей директории текущего проекта - ...\L_r_№3;

- откомпилируйте пример и запустите программу на выполнение.

В окне приложения выполните несколько раз команду меню File|New.

Исследуйте возможности нового приложения (последовательно выполните все команды меню). Завершите выполнение программы.

Вернувшись в среду разработчика, выполните два коротких нажатия на компоненте MainMenu1, находящейся в поле формы MDI Application. Вставьте в третий пункт меню - "Window" новые подпункты: «-», «&Next» и «&Previous». Для пункта меню Help установите свойство GroupIndex в "2".

Откройте дочернюю форму - MDI Child  (если ее не видно - используйте для открытия комбинацию клавиш Shift + F12). Поместите на неё компонент MainMenu. Активизируйте для компоненты конструктор меню (два коротких нажатия на компоненте). Первому пункту меню присвойте имя "&TEST" и установите его свойство GroupIndex в "1".

Запустите программу и откройте дочернее окно. В меню главного окна должен появиться пункт TEST. Если же дочернее окно закрыть, пункт TEST должен исчезнуть.

Завершите выполнение ПП.

Добавьте в проект две новые формы (дважды выберите команду главного меню - File|New Form) и сделайте их дочерними. Для этого свойству FormStyle у обеих форм присвойте значение fsMDIChild.

Поместите на обе формы по компоненту TMainMenu.

С помощью этих конструкторов меню (двойное нажатие) создайте по пункту Help_Form1 и Help_Form2 соответственно для Form1 и Form2.

Задайте для Help_Form1 и Help_Form2  методы-обработчики по своему усмотрению (например, используя компонент TLabel,  запрограммируйте вывод текста - справки по работе с окнами Form1 и Form2).

Свойству GroupIndex справочного пункта одной из форм присвойте значение "2". В строку uses модуля Main добавьте через запятую: Unit1, Unit2.

Для форм Form1 и Form2 свойства BorderIcon | biSystemMenu установите в True, а в обработчик OnClose для одной из форм внесите следующий оператор:

 

Action := caFree;

 

Запустив программу на выполнение, проверьте работу слияния пунктов меню разных дочерних форм с родительской. Пункт меню Help главной формы в одном из случаев должен быть заменён на время активизации дочерней формы соответствующим "Help_Form№".

Вставьте в текст программы методы-обработчики для выполнения действий на реакцию выбора команд «Next» и «Previous». Для этого выполните два коротких нажатия на пункте меню Next формы MDI Application (отвечающего за выбор следующего дочернего окна MDI) и введите код  для обработчика события OnClick:

 

Next;

 

Аналогичным образом создайте обработчик для пункта Previous (отвечающего за выбор предыдущего активного окна):

 

Previous;

 

Проверьте, сохраните и откомпилируйте файл проекта.

Продемонстрируйте работу преподавателю.