Проблема при создании меню [Delphi XE3]

[-Jack-]

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

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

[-Jack-]

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

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


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

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

[doktor255]

-Jack- Как на счёт TMainMenu? ActionManager и TActionMainMenuBar не пользуются особой популярностью. Собственно это видно по популярности данной темы.

[-Jack-]

Первоначально, пробовал как раз сделать меню через TMainMenu ... в принципе и легче намного, но вот нюанс какой ...
1. TActionMainMenuBar - к нему проще привязать тот же TXPColorMap и уже как ни как сделать посимпатичней меню ...
2. Плюс, поверх TActionMainMenuBar можно располагать другие объекты, что с TMainMenu выполнить будет посложней ...

[doktor255]

Тогда советую самостоятельно изучать эти контролы.

[-Jack-]

Ну в принципе, если идей ни у кого нет по этому компоненту, будем действовать сами ...

[Stilet]

Я пас. Не юзаю его уже оч. давно. Считаю его бесполезным.