TActionMainMenuBar. Как добавить Item в RunTime?

← →
sergey (2003-05-15 01:19) [0]

Хочу сделать список открытых последних файлов. В TMainMenu - нет проблем (уже наверно все напамять знают...). А здесь - не могу понять как добавить пункт меню во время работы. Помагите пожалуйста.

← →
Zergling © (2003-05-19 06:48) [1]

procedure TForm1.Action1Execute(Sender: TObject);
begin
Raise Exception.Create("ffff");
end;

ActionMainMenuBar1.ActionManager.ActionBars.Add;
ActionMainMenuBar1.ActionManager.ActionBars[0].ActionBar := ActionMainMenuBar1;
ActionMainMenuBar1.ActionManager.ActionBars[0].Items.Add;
ActionMainMenuBar1.ActionManager.ActionBars[0].Items[0].Action := Action1;

Обязательно присваивай к ActionMainMenuBar1.ActionManager.ActionBars[0].Items[0].Action заранее заготовленный какой нибудь Action1! Иначе Itemsы в ActionMainMenuBar1 отображаться не будут!!!

P.S. Ответ с большой задержкой. Наверно ты и сам уже решил эту задачку.

TActionMainMenuBar. Как добавить Item в RunTime? Найти похожие ветки