Как из подручных элементов собрать текстовое меню

← →
pirat © (2003-05-30 00:29) [0]

Как из TMainMenu, TPOPupMenu, TControlBar, TCoolBar, TToolBar собрать текстовую часть меню как в Делфи 7 ?

← →
___Nikolay © (2003-05-30 07:15) [1]

Если тебе нужно меню как в 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.

Как из подручных элементов собрать текстовое меню Найти похожие ветки