Скачать: CL | DM;

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. Ответ с большой задержкой. Наверно ты и сам уже решил эту задачку.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c