CodeNet / Языки программирования / Delphi & Kylix / FAQ - Часто задаваемые вопросы / Borland Delphi VCL FAQ
Я хочу создать в своей программе меню "а ля Дельфи 4". Как это сделать?
Вопрос:
Я хочу создать в своей программе меню "а ля Дельфи 4". Как это сделать?
Ответ:
- Разместите на форме TControlBar. (закладка Additional) Установите Align = Client.
- Разместите TToolBar (закладка Win32) внутри TControlBar.
- Установите в True свойства Flat и ShowCaptions этого TToolBar.
- Создайте на TToolBar столько TToolButtons сколько Вам нужно. (щелкнув по TToolBar правой кнопкой и выбрав NewButton)
- Установите свойство Grouped = True для всех TToolButtons. Это позволит меню выпадать при перемещении курсора между главными пунктами меню (если меню уже показано).
- Разместите на фоме TMainMenu и убедитесь, что оно *НЕ присоденено* как меню главной формы. (посмотрите свойство Menu формы).
- Создайте все пункты меню (щелкнув по TMainMenu кнопкой и выбрав Menu Designer)
- Для каждой TToolButton установите ее MenuItem равным соответсвующему пункту TMainMenu.