Как главное меню приложения вставить в TToolBar (как в Delphi)

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как главное меню приложения вставить в TToolBar (как в Delphi)

Разместите на форме 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.