Разработка главного меню в среде Delphi (Общие указания к лабораторной работе), страница 2

Увидим на экране, что снизу под прямоугольником с                                   надписью Пункт 1 появился прямоугольник для создания первого

подпункта подменю  пункта1, а справа  от прямоугольника,                               имеющего надпись Пункт 1, появился прямоугольник для создания следующего пункта главного меню. (если нижний прямоугольник не появился, то достаточно щёлкнуть мышью под прямоугольником Пункт 1 и он  появится).

Щёлкнем мышью по нижнему прямоугольнику, наберём строку Подпункт1 и нажмём Enter, затем щёлкнем по следующему нижнему прямоугольнику и наберём строку Подпункт 2 и нажмём Enter,  затем аналогично создадим и Подпункт 3.

Теперь щёлкнем мышью по прямоугольнику справа от Пункт1                              и наберём Пункт 2 и нажмём Enter, появится Пункт 2 главного меню,                        а  под ним - прямоугольник для создания первого подпункта подменю                  второго пункта. Создадим подменю второго пункта точно так же,                   как перед этим создали подменю первого пункта.

Теперь закроем экран Form1.MainMenu1. Далее, поместим в                      середину экрана Form1  компонент типаTLabel (метка) из вкладки                    Standard палитры компонентов. (система назовёт его Label1) и                       присвоим его свойству Caption значение (пустая строка).

В нижнюю часть экрана формы поместим две компоненты                                   типа TButton (кнопка) из той же самой вкладки палитры компонентов.  Система назовёт их соответственно Button1  и  Button2. Их свойству             Caption присвоим соответственно значения  Очистить  и  Окончить.

Теперь вверху экрана войдём в пункт 1 и щёлкнем подпункт 1 в открывшемся подменю. При этом будет подано к заполнению нужное              место в процедуре, обрабатывающей щелчок на подпункте 1 пункта 1.

Впишем туда строку

Label1.Caption:=’Студент <ФИО> : работает пункт 1 подпункт 1’;

Теперь войдём в пункт 1 главного меню и щёлкнем подпункт 2 в открывшемся подменю. При этом будет подано к заполнению нужное              место в процедуре, обрабатывающей щелчок на подпункте 2 пункта 1.

Впишем туда строку

Label1.Caption:=’Студент <ФИО> : работает пункт 1 подпункт 2’;

Аналогично запрограммируем щелчки на всех прочих подпунктах главного меню.

Затем запрограммируем щелчки на Button1 и Button2. Для этого                   сначала сделаем двойной щелчок на Button1.  Откроется нужное место                          из соответствующей процедуры, обрабатывающей щелчок на Button1 и впишем туда строку

               Label1.Caption :=’’;

А щелчок на Button2 аналогичным образом запрограммируем,                     вписав строку 

               Close;

Сохраним приложение в виде (Labor4.dpr, Lab4.pas). Запустим                      команду Run и убедимся, что приложение работает правильно.