|
|
![]() |
![]() |
![]() |
Я хочу
создать в своей программе меню "а ля Дельфи 4". Как это сделать?
1.
Разместите на форме TControlBar. (закладка Additional) Установите Align =
Client.
2. Разместите TToolBar (закладка Win32) внутри
TControlBar.
3. Установите в True свойства Flat и ShowCaptions этого
TToolBar.
4. Создайте на TToolBar столько TToolButtons сколько Вам нужно.
(щелкнув по TToolBar
правой кнопкой и выбрав
NewButton)
5. Установите свойство Grouped = True для всех TToolButtons.
Это позволит меню выпадать
при перемещении курсора между
главными пунктами меню (если меню уже показано).
6. Разместите на фоме
TMainMenu и убедитесь, что оно *НЕ присоденено* как меню главной
формы. (посмотрите свойство Menu формы).
7. Создайте все пункты
меню (щелкнув по TMainMenu кнопкой и выбрав Menu Designer)
8. Для каждой
TToolButton установите ее MenuItem равным соответсвующему пункту
TMainMenu.
Источник: Дельфи. Вокруг да
около.
|
| Copyright ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
| Источник получения информации: http://www.delphimaster.ru
|
|
