with ActionManager1.ActionBars.Add do begin
ActionBar := ActionMainMenuBar1;
end;
Динамическое создание меню (ActionManager, ActionMainMenuBar)
Здравствуйте!
Мне нужно в режиме исполнения программы сгенерировать главное меню программы и тулбар под ним. Элементы будут храниться в базе данных. Подскажите пожалуйста как это сделать.
Поместил на форму компоненты: ActionManager, ActionMainMenuBar.
Далее в режиме исполнения при активации формы:
- "связал" компоненты. Как теперь создать группы (например, Файл, Правка), действия (например, в группе Файл: Новая запись, Открыть, в группе Правка: Редактировать, Удалить), назначить события и добавить эти четыре пункта в главное меню?
Пробовал начать так:
Последняя строка вызвает ошибку.
Мне нужно в режиме исполнения программы сгенерировать главное меню программы и тулбар под ним. Элементы будут храниться в базе данных. Подскажите пожалуйста как это сделать.
Поместил на форму компоненты: ActionManager, ActionMainMenuBar.
Далее в режиме исполнения при активации формы:
Код:
- "связал" компоненты. Как теперь создать группы (например, Файл, Правка), действия (например, в группе Файл: Новая запись, Открыть, в группе Правка: Редактировать, Удалить), назначить события и добавить эти четыре пункта в главное меню?
Пробовал начать так:
Код:
SetLength(arrtCategory, 2);
ActionManager1.AddCategory('Файл',arrtCategory[0]);
ActionManager1.AddCategory('Правка', arrtCategory[1]);
SetLength(arrtActions, 2);
ActionManager1.AddAction(arrtActions[0], arrtCategory[0]);
arrtActions[0].Caption := 'Новая запись';
ActionManager1.AddCategory('Файл',arrtCategory[0]);
ActionManager1.AddCategory('Правка', arrtCategory[1]);
SetLength(arrtActions, 2);
ActionManager1.AddAction(arrtActions[0], arrtCategory[0]);
arrtActions[0].Caption := 'Новая запись';
Последняя строка вызвает ошибку.