|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Создание меню при помощи TActionManager и TActionMainMenuBar
Всем доброго времени суток. Пытаюсь программно создать меню из TActionManager и TActionMainMenuBar. Полоска меню отображается, но первый элемент меню "Test" никак не появляется
Код:
// Создание меню 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; Подскажите пожалуйста, где может быть ошибка или что я не так делаю ? |
#2
|
||||
|
||||
Попробовал ваш код на D7 - пункт меню "test" появился на форме. Может быть среда-ХЕ умнее старушки, и просто не отображает "пустышки", ведь экшн-то у вас на этот пункт так и не повешен. Такое предположение
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
В принципе, нашел проблему ...
ActionManager и TActionMainMenuBar нужно "связывать" только после того, как создано всё меню .... НО вот появились ещё 2 вопросов ... но уже больше по оформлению этого меню ... 1. Каким образом можно убрать колонку в выпадающем меню, в которой отмечаются "галочки" ( приложен скриншот ) 2. Возможно ли поэкспериментировать с формами меню, т.е. к примеру скруглить кнопки и выпадающее меню ? |
#4
|
|||
|
|||
Эх ... как я понимаю, с этими компонентами уже мало кто работает ... и поэтому навряд ли помогут ...
|