Разработка меню в среде Delphi 7 (Инструкция по выполнению лабораторной работы), страница 2

  Label1.Caption :=

  'Студент Жуков : вызван пункт A1 подпункт 1';

  ListBox1.Items.Add('Пункт A1 подпункт 1');

Остальные подпункты этого и других пунктов – программируются аналогично.

Для проверки работы программы, запускаем Run и делаем правый щелчок по экрану формы, после чего вызываем какой-нибудь подпункт какого-нибудь пункта всплывающего меню. Сразу появится запись об этом вызове  в невидимом до этого поле Edit1, а также в окне ListBox1. Притом, в окне ListBox1 эти записи будут накапливаться. Щелчком на кнопке Button2 (Очистить всё) будут полностью очищаться и поле Edit1 и окно ListBox1. Щелчок на кнопке Button1 (Окончить работу) будет вести к окончанию работы.    

                                                                         Рис. 1