![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Формирование динамического меню в процессе работы программы [D6]
ymc © (2002-08-15 13:50:00)Как программно сгенерировать меню имея массив названий, создать к ним обработчики и т.д. Меню в три уровня вложений (Главное -> подменю -> и в нем еще подменю).
Ученик (2002-08-15 13:59:00) [1]Функция может быть полезна
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;
Opuhshii (2002-08-15 13:54:00) [2]"сгенерировать меню имея массив названий" - легко
TMenuItem.Create
и .Items[].Add(NewItem);
а вот создать к ним обработчики ,.. если они есть в программе то например,..
NewItem:=TMenuItem.Create(nil);
NewItem.OnClick:=Menu1Click;
а вот если их нет,.. то это довольно сложно,.. чтоб раскать в 3-х словах,..