Форма содержит также панель состояния StatusBar. Ее свойство SimplePanel установлено в true.

Меню Файл приложения содержит стандартные разделы Открыть (действие АОреп), Сохранить (действие ASaveAs) и Выход. Меню Переход дублирует действия навигации, а меню Настройка содержит разделы Панель Explorer (имя раздела MExplorer), Панель файлов и фреймов (имя раздела MFile), Панель инструментов (имя раздела MTools) и Настройка (имя раздела MOptions, действие AOptions). Первые три из них переключают видимость соответствующих панелей. Например, сравнив рис. 5.6 и 5.6, вы можете увидеть, что на втором рисунке панель настройки не видна. В этих разделах меню должны быть индикаторы, показывающие, видима или невидима соответствующая панель. В свойствах Checked этих разделов надо установить значение true. Это соответствует тому, что по умолчанию все панели видимы. Кроме того, надо установить в true их свойства AutoCheck. Правда, это свойство, появилось только в Delphi 6. Оно обеспечивает автоматическое включение и выключение индикатора соответствующего раздела при каждом щелчке пользователя на нем. В версиях, предшествующих Delphi 6, переключение надо делать программно, как показано в приведенном далее коде.

Следует отметить, что изменение видимости панелей ToolBar, размещенных в CoolBar, создает определенные проблемы. Они связаны с автоматическим изменением расположения этих панелей. При анализе кода приложения будет показано, в чем заключаются эти проблемы и как их можно решить.

Теперь коротко рассмотрим вторую форму, которая открывается при щелчке пользователя на кнопке Tools. Ее вид во время выполнения показан на рис. 5,8. Форма реализована в модуле U2Br2 и имеет имя FOpt. На форме размещены четыре индикатора, определяющих флаги навигации и окна с кнопками, в которых пользователь может указать свою домашнюю страницу, загружаемую при открытии браузера, и свою страницу поиска. Ниже окна домашней страницы расположены кнопки: s С текущей (ее имя в приложении BHomeCurrent), которая задает в качестве домашней страницы ту, которая в данный момент открыта в браузере; я С найденной (ее имя BHomeFind) - она открывает диалог, в котором пользователь может выбрать любой файл требуемой страницы; § С указанной (ее имя BHomePoint) - она определяет в качестве домашней страницы ту, которая записана пользователем в расположенном выше окне.

5.4.2 Пример построения браузера

Под окном страницы поиска расположены аналогичные кнопки:

* Текущая (ее имя ВвеагспСиггеп^, которая задает в качестве страницы поиска ту, которая в данный момент открыта в браузере;
в Найти (ее имя В8еагспП1н1) - она открывает диалог, в котором пользователь может выбрать любой файл требуемой страницы;

* Из окна (ее имя ВЯеагспРоит!) - она определяет в качестве страницы поиска ту, которая записана пользователем в расположенном выше окне.

Рис. 5.8

Вспомогательная форма настройки во время выполнения

Кнопка OK просто закрывает окно настройки. Поскольку никаких действий при этом предпринимать не надо, обработчик щелчка на этой кнопке отсутствует. Но в ней установлено свойство ModalResult равное mrOk. Этого достаточно, чтобы модальная форма диалога закрылась. А по возвращенному значению mrOk можно будет в главном модуле отличить щелчок на кнопке О К от иных вариантов закрытия диалога, т.е. от отказа пользователя вести диалог.


⇐ Предыдущая страница| |Следующая страница ⇒

Приемы программирования в Delphi на основе VCL



Новости за месяц

  • Апрель
    2020
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31