Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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 и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
09.12.2019 05:08:26/0.011611938476562/2