Вопрос № 88267: Здравствуйте уважаемые!
Как мне расположить ComboBox на одном уровне с главным меню? То есть, например, как в Ворде, где есть комбо в который предлогается ввести вопрос... Я хочу сделать также, для быстрого поиска.
Заранее спасибо!...
Вопрос № 88.267
Здравствуйте уважаемые!
Как мне расположить ComboBox на одном уровне с главным меню? То есть, например, как в Ворде, где есть комбо в который предлогается ввести вопрос... Я хочу сделать также, для быстрого поиска.
Заранее спасибо!
Отправлен: 23.05.2007, 15:46
Вопрос задал: Red Spirit (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Ерёмин Андрей
Здравствуйте, Red Spirit!
Поставленной задачи можно добиться с помощью компонента TToolBar (вкладка Win32). Нужно поместить на форму TToolBar, а в его свойстве Menu указать созданное ранее меню (TMainMenu например). В результате появятся кнопки, имитирующие меню. Они не очень красивы, поэтому лучше убрать у них границы - установить у TToolBar свойство Flat в True. Также можно убрать все границы: свойства EdgeInner и EdgeOuter установить в esNone, а из EdgeBorders исключить ebTop. В результате получается обычная панелька, которую
можно разместить в любом месте формы, а соответственно и ComboBox можно разместить на том же уровне.
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW:Программирование на Delphi. Помощь, советы, обмен опытом. ICQ: 286837644 ---- Ответ отправлен: 23.05.2007, 15:58 Оценка за ответ: 5 Комментарий оценки: Спасибо за совет, но таким образом получается два меню. А как убрать верхнее, которое появляется автоматически?
Отвечает: Dragon
Здравствуйте, Red Spirit!
Можно организовать неплохое меню как в Word или как в Delphi используя ActionMainMenuBar, ActionManager.
Ответ отправил: Dragon (статус: 2-ой класс)
Ответ отправлен: 23.05.2007, 16:19
Отвечает: LEXASOFT
Здравствуйте, Red Spirit!
Есть вариант создать меню и комбобокс на компоненте TToolBar:
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.
9. Разместите TComboBox внутри TControlBar.
Удачи!
--------- Нет безвыходных положений...
Ответ отправил: LEXASOFT (статус: 5-ый класс)
Ответ отправлен: 25.05.2007, 05:44 Оценка за ответ: 5