Тема 7. Встроенные окна диалога.

Такие диалоги выгодно отличаются от нестандартных окон тем, что разработчику не составляет большого труда их создать или отобразить на экране. Простота использования объясняется тем, что они вызываются при помощи стандартных функций Delphi, параметры которых задают внешний вид и функциональные особенности того или иного диалога.

Окно ввода данных

Окно ввода – это стандартное диалоговое окно, которое появляется на экране в результате вызова функции InputBox. Значением данной функции является строка, которую ввел пользователь.

О бщий вид:

InputВох(заголовок, подсказка, значение)

Здесь:

заголовок – строковое значение, задающее название окна;

подсказка – текст поясняющего сообщения;

значение - принимаемое по умолчанию значение, которое выводится автоматически в текстовом поле;

Задание: Создать проект «Фамилия, имя, отчество»

Описание задачи. Экранная форма проекта содержит три текстовых поля и командную кнопку ПУСК. После щелчка этой кнопки должно появится Окно ввода для ввода фамилии пользователя. После ввода своей фамилии пользователь должен щелкнуть кнопку ОК на этом окне, после чего должно появиться второе Окно ввода для ввода имени пользователя. Введя свое имя и щелкнув кнопку ОК, пользователь увидит новое (третье) Окно ввода – для своего отчества.

Все результаты должны отобразиться в текстовых полях.

Окно вывода сообщений

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

Вывести на экран окно с сообщением можно при помощи процедуры ShowMessage или функции MessageDlg.

1. Процедура ShowMessage выводит на экран окно с текстом и командной кнопкой ОК.

Общий вид:

ShowMessage(Сообщение);

где Сообщение – это строка, которая будет выведена в окне

Например: ShowMessage(‘Введите вес в фунтах’);

Замечание: В заголовке окна сообщения, выводимого процедурой ShowMessage указано название приложения, которое можно задать командой Project / Options / вкладка Application / поле Title. Если название приложения не задано, то в заголовке будет имя исполняемого файла.

2. Функция MessageDlg более универсальная. Она позволяет поместить в окно с сообщением один из стандартных значков, задать количество и тип командных кнопок и определить, какую из кнопок нажал пользователь.

Значение функции – число, которое соответствует командной кнопке, нажатием на которую был завершен диалог.

Общий вид

MessageDlg(сообщение, тип, кнопки, Контекст_справки)

Тип окна:

Значение	Вид сообщения	Пиктограмма
mtError	критическое сообщение, ошибка
mtConfirmation	вопрос
mtWarning	предупреждение
mtInformation	информация
mtCustom	пользовательское	Без значка

Кнопки – (множество– заключенный в квадратные скобки список констант) задает командные кнопки диалогового окна (mbYes, mbNo, mbOK, mbCancel, mbHelp, mbAbort, mbRetry, mbIgnore и mbAll).

Контекст_справки задает раздел справочной системы программы, который появится в результате нажатия кнопки Help или клавиши <F1>. Если справочная система не используется, значение параметра должно быть 0.

Н апример:

Var a:integer;

…

a:=MessageDlg('Ошибка',mtError,[mbOK, mbCancel], 0);

…

Возвращаемое значение – это целое число от 1 до 8. Оно зависит от того, какая из кнопок нажата.

В зависимости от возвращаемого функцией MessageDlg значения разработчик может предусмотреть выполнение приложением тех или иных действий.

Константы, возвращаемые диалогом MessageDlg

Кнопка	Возвращаемое значение
OK	1	mrOk
Cancel	2	mrCancel
Abort	3	mrAbort
Retry	4	mrRetry
Ignore	5	mrIgnore
Yes	6	mrYes
No	7	mrNo
All	8	mrAll

Если в окне диалога имеется кнопка Cancel, то в этом случае щелчок по ней эквивалентен нажатию клавиши Esc.