Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.09.10;
Скачать: CL | DM;

Вниз

Проблема с созданием меню   Найти похожие ветки 

 
Сергей   (2014-02-15 19:13) [0]

Всем привет. Проблема такая, нужно программно создать меню ...  
 // Создание меню
 AM:=TActionManager.Create(AOwner);
 EColorMap:= TXPColorMap.Create(AOwner);
 EM:=TActionMainMenuBar.Create(AOwner);

 EM.Caption:="EMM";
 EM.ActionManager:=AM;
 EM.ColorMap:=EColorMap;
 EM.Enabled:=True;
 EM.Visible:=True;
 EM.Parent:=Self;

 AM.ActionBars.Add;
 AM.ActionBars.ActionBars[0].ActionBar:=EM;
 AM.ActionBars.ActionBars[0].Visible:=True;
 AM.ActionBars.ActionBars[0].Items.add;
 AM.ActionBars.ActionBars[0].Items[0].Caption:="Test";
 AM.ActionBars.ActionBars[0].Items[0].ShowCaption:=True;
 AM.ActionBars.ActionBars[0].Items[0].Visible:=True;


Но вот где то ошибка, меню создается, а вот сам первый элемент "Test" - нет... Подскажите, где я ошибся ?


 
Novicer   (2014-02-17 10:23) [1]

Наведите кто-нить наглядный пример зачем динамически создавать MainMenu? Не проще создать в designtime и назначить обработчики все командам меню?


 
KilkennyCat ©   (2014-02-17 11:11) [2]


> Novicer   (17.02.14 10:23) [1]

1. настраиваемое ради удобства пользователя.
2. изменяемое от текущего режима программы.
3. шаблонизация


 
Dennis I. Komarov ©   (2014-02-17 11:52) [3]


> Novicer   (17.02.14 10:23) [1]
> Наведите кто-нить наглядный пример зачем динамически создавать
> MainMenu? Не проще создать в designtime и назначить обработчики
> все командам меню?

А если нет конечного списка, а логика вынесена в отдельные библиотеки с динамической загрузкой?



Страницы: 1 вся ветка

Текущий архив: 2015.09.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.096 c
3-1304500232
scott-tiger
2011-05-04 13:10
2015.09.10
табличный тип -> xml (Оракл)


15-1412541002
Юрий
2014-10-06 00:30
2015.09.10
С днем рождения ! 6 октября 2014 понедельник


3-1304102314
Tirael
2011-04-29 22:38
2015.09.10
как можно "залочить" записи?


2-1394026817
Дмитрий
2014-03-05 17:40
2015.09.10
Общий тип для манипуляции несовместимыми типами с общими свойств.


15-1420406760
Кто б сомневался
2015-01-05 00:26
2015.09.10
Чтобы Delphi IDE при старте открывал последние открытые юниты