Динамическое создание ActionMainMenuBar

[Paul Hindenburg]

Пытаюсь сделать динамическое создания экшнменю. Создается только главное меню - не могу сделать для него элементы.
вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
  main,tohter:TActionClientItem;
  i:integer;
const
  CaptionStr : array [0..4] of string=('Daewoo','Volovo','Mercedes','BMW','Mazda');
begin
 main := ActionManager1.ActionBars.ActionBars[0].Items.add;
main.Action := Action1;
i := 0;
while i<5 do
begin
 tohter := main.Items.Add;
 tohter.Action := Action1;
 tohter.Caption := CaptionStr[i];
 tohter.Visible :=0=0;
 inc(i);
end;   
 main.Caption := 'Марки авто';
 main.Visible :=0=0;

end;

[mihali4]

Ну так почитайте в хэлпе про создание пунктов меню.
Там и пример есть...
Items property (TMenu)

[Paul Hindenburg]

Сообщение от mihali4

Ну так почитайте в хэлпе про создание пунктов меню.
Там и пример есть...
Items property (TMenu)

мне не нужен TMenu, мне нужен ActionMainMenuBar

зы, если читать в хелпе зачем тогда форум?

[mihali4]

Сообщение от Paul Hindenburg

если читать в хелпе зачем тогда форум?

А вы считаете, что форум для того, чтобы переписывать сюда хэлп?
Вы глубоко заблуждаетесь.
Мы помогаем, когда человек не смог раразобраться самостоятельно.
А вы просто не хотите.
Так привыкли к "няньке"?

[Paul Hindenburg]

вот именно что у меня не получается, все методы мной написаны правильно.
я давно уже заметил что качество данного форума упало. Здесь все говорят лишь о действительно стоящих задачах - где почитать, да у кого спросить. Жаль..
ладно можете удалить данную тему, дабы не засорять.
а я тем временем поищу на других ресурсах.

[Delphi]\Demos\ActionBands\DynaActionBands.