Как добавить пункт меню?

Delphi , Компоненты и Классы , Меню

Как добавить пункт меню?

Code:

procedure AddItemsM(vAction: TAction;  vMenu:TMainMenu);

        var

        index: integer

        vItems  :TMenuItem;

        begin

        index := vMenu.Items.IndexOf(nmWindow);

        vItems  := TMenuItem.Create(vMenu);

        vItems.Action := vAction;

        vMenu.Items.Items[index].Add(vItems);

        end;

nmWindow - это Name пункта меню "Окна"

(этот код я писал для добавления открытых окон в пункт меню "Окна", главного меню своего приложения)

Автор Pegas

Взято с Vingrad.ru http://forum.vingrad.ru

Статья Как добавить пункт меню? раздела Компоненты и Классы Меню может быть полезна для разработчиков на delphi & pascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Меню ::

Время компиляции файла: 2024-04-26 19:56:12
2024-04-27 05:56:52/0.0062968730926514/2