[Bugagasha]

Всем доброго времени суток. Пытаюсь программно создать меню из TActionManager и TActionMainMenuBar. Полоска меню отображается, но первый элемент меню "Test" никак не появляется

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

// Создание меню 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;

Подскажите пожалуйста, где может быть ошибка или что я не так делаю ?

[Alegun]

Попробовал ваш код на D7 - пункт меню "test" появился на форме. Может быть среда-ХЕ умнее старушки, и просто не отображает "пустышки", ведь экшн-то у вас на этот пункт так и не повешен. Такое предположение

[Bugagasha]

В принципе, нашел проблему ...
ActionManager и TActionMainMenuBar нужно "связывать" только после того, как создано всё меню ....

НО вот появились ещё 2 вопросов ... но уже больше по оформлению этого меню ...


1. Каким образом можно убрать колонку в выпадающем меню, в которой отмечаются "галочки" ( приложен скриншот )

2. Возможно ли поэкспериментировать с формами меню, т.е. к примеру скруглить кнопки и выпадающее меню ?

[Bugagasha]

Эх ... как я понимаю, с этими компонентами уже мало кто работает ... и поэтому навряд ли помогут ...