[Voron]

Здравствуйте. Подскажите, кто знает как программно добавить пункт меню в ActionMenuBar.
Делаю так

Код:

item1:=TActionClientItem.Create(nil);
.......
item1:=ActionManager.ActionBars[0].Items.ActionClients[6].Items.Add as TActionClientItem;
item1.caption:='Новый пункт меню';

Но ничего не происходит.

[DelphiM0ZG]

Когда я писал графический редактор, то добавлял пункты в ActionMenuBar таким способом:

Код:

procedure TGraphEditorForm.CreateActionItem(Const FileName: String);
Var
  MyAction: TAction;
begin
  MyAction:=TAction.Create(ActionMainMenuBar);
  With MyAction Do
    Begin
      Hint:=FileName;
      Caption:=ExtractFileName(FileName);
    End;
  
  MyAction.OnExecute:=LoadFileToImage;
  
  With ActionManager.ActionBars[12].Items[0].Items[2].Items.Add Do
    Begin
     Action:=MyAction;
    End;
end;

Этот код я использовал, чтобы в менюшке сделать несколько подпунктов для недавно открытых файлов. Там ещё у меня процедура LoadFileToImage, которая удаляла пункт меню, если не нашла файл.
Если мой код не понятен, то можно почитать об этом в книге М. Е. Флёнова - "Библия Delphi", там это написано после примера работы с этим компонентом (меню и панели инструментов в стиле XP - где-то там).