На этом уроке изучим работу с меню. Delphi поддерживает работу с разными видами меню - с обычным меню (по другому оно называется главным меню приложения), с контекстным меню, с системным меню. В этом уроке мы с вами посмотрим, как можно использовать в ваших программах на Delphi обычное меню. Для размещения в вашей программе такого меню выберите компонент MainMenu на вкладке Standard на палитре компонентов.

После этого на вашей форме появится компонент с именем MainMenu1. Где он располагается на вашей форме на этапе разработки программы - все равно. На этапе выполнения меню все равно будет в своем стандартном месте - наверху формы. Сейчас в нашем компоненте MainMenu1 нет пунктов меню. Для добавления новых пунктов меню просто сделайте двойной щелчок на MainMenu1. Откроется окно редактора меню. Добавьте в него два пункта, для этого просто введите нужные названия пунктов меню с клавиатуры. Закройте окно редактора меню и запустите программу. На форме должно появится наше меню.

Теперь посмотрим, как можно добавить обработчик для какого-нибудь пункта меню. Для добавления обработчика просто щелкните на нужном вам пункте меню (на этапе разработки программы, конечно). Откроется окно кода, в нем будет сгенерированна заготовка для обработчика, в которую просто впишите нужный вам код (мы в нашем примере просто вызываем messagebox).

Код:

procedure TForm1.Submenu1Click(Sender: TObject);

begin

            ShowMessage('Выбрано меню Sub menu');

end;

            Всё на этом урок закончен.