Считаете ли вы, что меню, предоставляемое Delphi, действительно непривлекательно в использовании? Вы можете использовать собственный элемент управления VCL Delphi для реализации меню в стиле IE! Функции включают в себя: плавающие кнопки, позиционирование при перетаскивании, графику... все это не требует каких-либо сторонних элементов управления или большого количества программирования!
Реализация меню в стиле IE требует следующих шагов:
1. Определите обычное меню обычным способом;
2. Скрыть заданное меню из окна;
3. Добавьте в окно CoolBar и ToolBar в качестве строки меню;
4. Сопоставьте меню с кнопкой ToolBar;
5. Программа для спецэффектов (опционально).
Первый шаг — определить обычное меню обычным способом.
Добавьте в окно элемент управления TMainMenu, а затем определите пункты меню, значки, сочетания клавиш и т. д. обычным способом.
Второй шаг — скрыть определенное меню из окна.
Определенное меню будет автоматически отображено в окне. Это связано с тем, что при добавлении элемента управления TMainMenu в окно свойству Menu объекта TForm автоматически присваивается добавленный объект TMainMenu. Чтобы использовать наше собственное определенное меню, это меню должно быть скрыто. Очистите TForm.Menu, и определенное меню не будет отображаться автоматически.
Третий шаг — добавить CoolBar и ToolBar в окно в качестве строки меню.
Добавьте в окно элемент управления TCoolBar, а затем поместите в него элемент управления TToolBar. Установите для свойства AutoSize TCoolBar и TToolBar значение True, установите для свойства Flat TToolBar значение True и установите для свойства ShowCaptions TToolBar значение True. Таким образом, над окном появится пустая строка меню. Далее мы добавим пункты меню в эту строку меню.
Четвертый шаг — сопоставить меню с кнопкой ToolBar.
Щелкните правой кнопкой мыши TToolBar и выберите «Новая кнопка» во всплывающем меню, чтобы добавить первую кнопку в строку меню. Установите для свойства AutoSize и свойства Grouped этой кнопки значение True, а затем измените свойство Caption на текст пункта меню. Например, для свойства Caption может быть установлено значение &File. Наконец, установите для свойства MenuItem этой кнопки соответствующий пункт меню, определенный в TMainMenu. Например, свойству MenuItem может быть присвоено значение mnuFile. После этих настроек кнопка привязывается к пункту меню, и при нажатии на кнопку будет всплывать соответствующее меню.
Пятый шаг — запрограммировать специальные эффекты (необязательно).
После предыдущих четырех шагов новое меню уже может нормально работать. Однако если вы хотите реализовать другие специальные эффекты, такие как перетаскивание и позиционирование CoolBar, вам придется проделать дополнительную работу по программированию. Это содержание больше не является предметом данной статьи и не будет обсуждаться. Заинтересованные читатели могут обратиться за помощью к Delphi.
Читатели могут высказать свое мнение по поводу этой статьи.