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.

 

Взято из

DELPHI VCL FAQ Перевод с английского        

Подборку, перевод и адаптацию материала подготовил Aziz (JINX)

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить