Как сделать меню как в Дельфи?

Материал из DRKB

Как сделать меню как в Дельфи?[править | править код]

  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)
 специально для Королевства Дельфи


Source: Взято из
ID: 01303