[Bugagasha]

Всем доброго времени суток. Пытаюсь программно создать меню из 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;

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

[Alegun]

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

[Bugagasha]

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

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


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

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

[Bugagasha]

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