Часть урока для продвинутых программистов. Всегда хочется каким-то образом оформить свое приложение, чтобы оно выглядело по-новому и немного нестандартно.
Всегда хочется каким-то образом оформить свое приложение, чтобы оно выглядело по-новому и немного нестандартно.
1. Создаем обычное меню на компоненте TMainMenu, но за одним исключением. У окна формы необходимо очистить свойство Menu и мы сразу видим, что меню исчезает из проектировочной формы. 2. Устанавливаем в форму компонент TControlBar (страница Additional). Свойство Align для него в alTop. 3. Устанавливаем в ControlBar1 компонент TToolBar (страница Win32). Для него все вложенные свойства для EdgeBorders в false. Свойство Flat устанавливаем в true. Свойства ShowCaptions и AutoSize тоже в true. 4. Создаем в Toolbar1 столько кнопок, сколько у нас пунктов имеет меню. Для всех кнопок меняем свойства AutoSize и Grouped на true. 5. Для каждой кнопки меняем свойство MenuItem на соответствующий пункт меню ("Файл", "Правка", Окна" и т.д.) Оформление меню окончено. С помощью свойств DragKind (установить в dkDock) и DockSite для приемника перетаскиваемого можно получить интересные эффекты при перетаскивании меню и других Dock'табельных компонентов. Такой простой пример можно скачать отсюда. Он еще далек от совершенства, но важна сама идея. С уважением, ведущий уроков Semen semen@krovatka.net
|
Рассмотрим создание главного меню программы, аналогичное главному меню в главном окне среды программирования delphi.
