На этом уроке изучим работу с меню. Delphi поддерживает работу с разными видами меню - с обычным меню (по другому оно называется главным меню приложения), с контекстным меню, с системным меню. В этом уроке мы с вами посмотрим, как можно использовать в ваших программах на Delphi обычное меню. Для размещения в вашей программе такого меню выберите компонент MainMenu на вкладке Standard на палитре компонентов.
После этого на вашей форме появится компонент с именем MainMenu1. Где он располагается на вашей форме на этапе разработки программы - все равно. На этапе выполнения меню все равно будет в своем стандартном месте - наверху формы. Сейчас в нашем компоненте MainMenu1 нет пунктов меню. Для добавления новых пунктов меню просто сделайте двойной щелчок на MainMenu1. Откроется окно редактора меню. Добавьте в него два пункта, для этого просто введите нужные названия пунктов меню с клавиатуры. Закройте окно редактора меню и запустите программу. На форме должно появится наше меню.
Теперь посмотрим, как можно добавить обработчик для какого-нибудь пункта меню. Для добавления обработчика просто щелкните на нужном вам пункте меню (на этапе разработки программы, конечно). Откроется окно кода, в нем будет сгенерированна заготовка для обработчика, в которую просто впишите нужный вам код (мы в нашем примере просто вызываем messagebox).
Код:
procedure TForm1.Submenu1Click(Sender: TObject);
begin
ShowMessage('Выбрано меню Sub menu');
end;
Всё на этом урок закончен.