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

Как добалять элементы в 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

---

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

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



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