Формирование динамического меню в процессе работы программы

← →
ymc © (2002-08-15 13:50) [0]

Как программно сгенерировать меню имея массив названий, создать к ним обработчики и т.д. Меню в три уровня вложений (Главное -> подменю -> и в нем еще подменю).

← →
Opuhshii © (2002-08-15 13:54) [1]

"сгенерировать меню имея массив названий" - легко
TMenuItem.Create
и .Items[].Add(NewItem);
а вот создать к ним обработчики ,.. если они есть в программе то например,..
NewItem:=TMenuItem.Create(nil);
NewItem.OnClick:=Menu1Click;
а вот если их нет,.. то это довольно сложно,.. чтоб раскать в 3-х словах,..

Функция может быть полезна
function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem;

function NewSubMenu(const ACaption: string; hCtx: THelpContext; const AName: string; const Items: array ofTMenuItem; AEnabled: Boolean = True): TMenuItem;

Формирование динамического меню в процессе работы программы Найти похожие ветки