Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.09.2009, 10:38   #1
nikmay
Пользователь
 
Регистрация: 25.06.2009
Сообщений: 33
Печаль Как программно сформировать меню???

Есть такая проблема:

Есть раздел меню, например, "Таблицы".
В зависимости от полученного массива названий таблиц, в данном разделе должны появиться соответствующие пункты.
При нажатии на который открывается соответствующая таблица.

ВОПРОС: Как программно сформировать меню???
nikmay вне форума Ответить с цитированием
Старый 14.09.2009, 10:48   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

В хелпе набираешь TMenu.Items
Там будет пример в котором твой вопрос показан.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 14.09.2009, 10:51   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

кусок кода просто, как информация к размышлению...
идея понятна. в случае чего - F1 поможет...

Код:
Menu: TMainMenu;

var
    Item, SubItem: TMenuItem;
...
       Item := TMenuItem.Create( Menu );
       Item.Caption := '&Система';
       Menu.Items.Add( Item );
...
       SubItem := TMenuItem.Create( Menu );
       SubItem.Caption := 'Войти под другим именем...';
       SubItem.Hint := 'Войти в систему под другим паролем';
       SubItem.OnClick := AnotherLogin;
       Item.Add(SubItem);
       SubItem := TMenuItem.Create( Menu );
       SubItem.Caption := '-';
       Item.Add(SubItem);
       SubItem := TMenuItem.Create( Menu );
       SubItem.Caption := 'Выход';
       SubItem.Hint := 'Завершение работы программы';
       SubItem.OnClick := GoodBye;
       Item.Add(SubItem);
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Меню с Items в виде набора Bitmap (как меню редактирования в Word'е) chandrasecar Мультимедиа в Delphi 7 14.01.2009 09:20
Отключить пункт меню (Программно) ScreN Общие вопросы Delphi 1 27.12.2008 13:40
как сформировать проверку (вложенные блоки) Tanuska___:) Общие вопросы Delphi 3 25.11.2008 14:11
Как сформировать запрос RDS2008 БД в Delphi 10 07.03.2008 23:01