Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Формирование динамического меню в процессе работы программы [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-х словах,..


Наверх

Титульная страница Поиск, карта сайта Написать письмо