Как добалять элементы в TActionMainMenuBar в RunTime

← →
Бушин Сергей (2003-12-24 05:50) [0]

Не могу понять чего к чему. Как добавить элемент в меню? Справку всю перерыл. Вначале его необходимо добавить в Manager, а потом в Menu, но как сделать? Помогите. Помню давно такой вопсро уже кто-то задовал, но ссылки не осталось, а найти через поис не удается.

← →
Babay (2003-12-24 08:28) [1]

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Item: TActionClientItem;
a:TCustomAction;
begin
a:=TAction.Create(self);
a.Caption:="Probe";
Item := ActionManager1.FindItemByCaption("Мой пункт");
if Assigned(Item) then
ActionManager1.AddAction(a, Item.Items[0]);
end;

пример в дельфи тоже есть ...delphi7\demos\ActionBands\DynaActionBands

Как добалять элементы в TActionMainMenuBar в RunTime Найти похожие ветки