Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.013 c