программу, а затем запустите ее снова... Будильники на месте. Кстати, утилиту Alarms можно поместить в папку StartUp, тогда она всегда будет у вас под рукой.

9.5. Многостраничные окна диалога

9.5.1. Страницы с закладками

В сложных компьютерных системах предусмотрена настройка десятков различных параметров, которые пользователь просто обязан установить. Это означает либо перегруженность диалоговых окон, либо слишком большое их количество. Решение этой проблемы заключается в организации многостраничных окон диалога. Они создаются с помощью компонента, который изображается в виде множества снабженных закладками страниц, называемых вкладками (рисунок 9.50):

Рисунок 9.50. Пример вкладок в окне диалога

Вкладки относятся к разряду сложных компонентов, но в целом они упрощают пользовательский интерфейс, заменяя несколько связанных по

479

смыслу форм. А чем меньше форм, тем легче пользователю ориентироваться в программе.

Создание вкладок рассмотрим на следующем примере. Представьте, что вкладками являются экзаменационные билеты по трем научным дисциплинам: математике, физике, химии. Каждая вкладка содержит один вопрос с возможными вариантами ответа. Пользователь должен на каждой вкладке выбрать правильный вариант ответа и завершить ввод щелчком на кнопке Result. При всех правильных ответах он получит оценку "отлично", при двух ответах — "хорошо", при ответе лишь на один вопрос — "удовлетворительно", а при всех неправильных ответах — "плохо".

Шаг 1. Приступим к реализации примера. Начните новый проект и установите для главной формы следующие свойства:

Name = ExamForm

Caption = Экзамен

BorderStyle = bsDialog

Position = poScreenCenter

Размеры формы подберите по своему усмотрению.

Шаг 2. Теперь поместите в форму компонент PageControl. Вы найдете его в палитре компонентов на вкладке Win32 (рисунок 9.51).

480

OnGetSiteInfo Происходит, когда у компонента запрашивается место для стыковки.

Таблица 9.16. Важнейшие свойства и события компонента PageControl

Шаг 3. Первоначально компонент PageControl не содержит ни единой вкладки. Для создания вкладки щелкните правой кнопкой мыши на компоненте и выберите в контекстном меню команду New Page (рисунок

9.52).

481

Шаг 4. Перейдите к окну свойств и замените текст закладки, вписав в свойстве Caption значение Mathematics. Действуя аналогично, добавьте вкладки Physics и Chemistry (рисунок 9.54).

Рисунок 9.54. В компоненте PageControl созданы три вкладки

Шаг 5. Ну вот, у нас уже есть три пустых вкладки и можно приступать к наполнению их содержанием. Сначала щелчком мыши активизируйте вкладку Mathematics. Затем поместите на нее группу взаимоисключающих переключателей — компонент RadioGroup. Заголовок группы будет содержать условие вопроса, а текст переключателей — возможные варианты ответа. Вопрос по математике будет из области тригонометрии (рисунок

9.55).

483

Caption = When the ice in water dissolves then (когда лед в воде тает)

Items = the level of water becomes higher (уровень воды поднимается)

the level of water becomes lower (уровень воды понижается)

the level of water remains unchanged (уровень воды остается неизменным)

ItemIndex = 0 (номер варианта принимаемый по умолчанию)

Tag = 2 (номер правильного варианта, считая от нуля)

Результат должен быть таким, как на рисунке 9.56:

Рисунок 9.56. Содержимое второй вкладки

Шаг 8. Осталось создать билет по химии. Мы надеемся, что после всех предыдущих испытаний это не составит для вас труда. Кратко поясним, что нужно сделать. Активизируйте вкладку Chemistry и поместите на нее компонент RadioGroup. Подберите для него подходящие размеры и установите следующие свойства:

Caption = The right way of mixing acid and water is (чтобы разбавить кислоту,

нужно)

Items = to add acid to water (добавить кислоту в воду)

to add water to acid (добавить воду в кислоту)

ItemIndex = 0 (номер варианта принимаемый по умолчанию)

485

Tag = 0 (номер правильного варианта, считая от нуля)

После всех ваших действий вкладка Chemistry будет выглядеть так, как на рисунке 9.57.

Рисунок 9.57. Содержимое третьей вкладки

Шаг 9. Все вкладки с экзаменационными билетами вроде бы готовы, но как вы считаете, какая из них будет активной при запуске программы? Конечно та, которая осталась активной при проектировании, т.е. вкладка Chemistry. А надо, чтобы первой оказалась вкладка Mathematics. Поэтому активизируйте ее щелчком мыши. Кроме того, установите у формы свойство ActiveControl в значение RadioGroup1. Компонент, указанный в свойстве ActiveControl первым получает фокус ввода при появлении формы на экране.

Шаг 10. Теперь вас ждет самая ответственная работа — выставление пользователю оценки. Для этого поместите в форму две кнопки (компонент Button). Первая кнопка предназначена для выдачи результата экзамена, сделайте ее свойства такими:

Name = ResultButton

Caption = Result

Default = True

Вторая кнопка служит для закрытия окна, ее сделайте такой:

Name = CloseButton

Caption = Close

486

Cancel = True

Рисунок 9.58. Кнопка Result выдает оценку, кнопка Close завершает диалог

Шаг 11. Создайте для кнопок следующие обработчики события OnClick:

procedure TExamForm.ResultButtonClick(Sender: TObject); const

MarkText: array[0..3] of string =

('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');

var

Mark: Integer; begin

Mark := 0;

if RadioGroup1.ItemIndex = RadioGroup1.Tag then Mark := Mark + 1;

if RadioGroup2.ItemIndex = RadioGroup2.Tag then Mark := Mark + 1;

if RadioGroup3.ItemIndex = RadioGroup3.Tag then Mark := Mark + 1;

ShowMessage(MarkText[Mark]);

end;

procedure TExamForm.CloseButtonClick(Sender: TObject); begin

Close;

end;

Оценка вычисляется элементарно. Сначала предполагается, что она равна нулю (ни одного правильного ответа), а затем она уточняется в соответствии с тем, дал ли пользователь правильный ответ по математике, физике и химии. Под конец вызывается процедура ShowMessage, которая выдает в маленьком окне диалога заключение экзаменатора (рисунок 9.59).

487