Диалоговые окна ввода и вывода сообщений

InputBox(S1, S2, S3): String ‑ вывод окна с заголовком S1, с текстом S2, с по­лем для ввода сообщения, с умалчи­ваемым значением S3 и с кнопками OK и Cancel. Функция возвращает вве­ден­ное пользователем сообщение.

Пример: Var Dpt: String; //строка для ввода даты поставки товара...

Dpt: =InputBox('Поставки товаров', 'Дата поставки', DateToStr(Date));

InputQuery(S1, S2, var S3): Boolean - фун­кция аналогична функции Input­Box, но возвращает True/False при нажатии кнопки OK/Cancel, а введенное значение ‑ в S3.

ShowMessage(S) ‑ вывод окна с текстом сообщения S и с кнопкой OK.

Пример: ShowMessage(‘Выполняется сортировка файла’)

Application.MessageBox(S1, S2, 0) ‑ вывод окна с заголовком S2, с текстом сообщения S1 и с кнопкой OK.

Пример. Application.MessageBox(‘Конец работы’, ’Cooбщение’, 0)

ShowMessageFmt(S; P: Array Of Const) ‑ вывод окна с отформатирован­ным текстом и с кнопкой OK: S ‑ описание формата, P ‑ массив форма­ти­руе­мых значений (п.1.7.2).

Пример:

ShowMessageFmt(‘Число %d больше %d’, [5, 3]);

MessageDlg(S, T, K, N: LongInt): Word ‑ вывод окна указанного типа (T) с текстом сообщения S, с нужным вариантом кнопок управления (K) и с номером темы справки N (если справки нет, то N=0), вызываемой из окна клавишей F1. Тип окна (T) выводится в заголовке окна и задается именованными константами:

mtWarning ‑ окно замечаний с желтым восклицательным знаком;

mtError ‑ окно ошибок с красным стоп‑ сигналом;

mtInformation ‑ информационное окно с голубым символом i;

mtConfirmation ‑ окно подтверждения с зеленым вопросительным знаком;

mtCustom ‑ заказное окно без рисунка с заголовком ‑ именем программы.

Вариант кнопок (K) задается множеством именованных констант, в квадратных скобках через запятые: mbYes (кнопка с надписьюYes), mbNo, mbOK, mbCancel, mbHelp, mbAbort, mbRetry, mbIgnore, mbAll, mbYesNoCancel, mbAbortRetryIgnore, mbOkCancel.

Функция возвращает значение mr< имя кнопки>, соответствующее выбранной кнопке, например, mrYes или mrNone (при закрытии окна системной кнопкой ‑ крестик окна Windows).

Пример:

If MessageDlg('Закончить? ', mtConfirmation, [mbyes, mbNo], 0)=mrYes Then...

MessageDlgPos(S, T, K, N: LongInt; X, Y: Integer): Word ‑ функция аналогична предыдущей, но дополнительными координатами X, Y задается местоположение окна на экране.

CreateMessageDialog(S, T, K): TForm ‑ создание окна в виде объекта формы без его отображения с целью многократного его использования и для задания заголовка окна на русском языке. Параметры T, K описаны выше. Отображение реализуется методами Show или ShowModal (для анализа ответа). Для удаления формы из памяти используется метод Free.

Пример:

Procedure TForm1.Button1Click(Sender: TObject); //процедура вывода сообщ.

Var F: TForm; //объявление переменной типа формы

Begin //создание формы:

F: =CreateMessageDialog('Сортировка файла', mtWarning, [mbOK]);

F.Caption: ='Предупреждение'; //заголовок формы

F.ShowModal; {вывод формы} F.Free; {удаление формы} End;

Application.MessageBox(S1, S2, Flag: LongInt): Integer ‑ функция (метод при­ло­­же­­ния) выводит текст сообщения S1 в окно с заголовком S2 с указанным видом и набором кнопок, заданным параметром Flag. Параметр Flag есть сумма по одному значению из следующих групп флажков.

Флаги кнопок с названиями на русском языке для руси­фи­ци­ро­ван­ного Windows: mb_AbortRetryIgnore (кнопки Стоп, Повтор, Пропустить), mb_Ok (OK), mb_OkCancel (OK, Отмена), mb_RetryCancel (Повтор, Отмена), mb_YesNo (Да, Нет), mb_YesNoCancel (Да, Нет, Отмена).

Флаги рисунков‑ иконок в окне:

mb_IconWarning ‑ окно замечаний с желтым восклицательным знаком;

mb_IconError ‑ окно ошибок с красным стоп ‑ сигналом;

mb_IconInformation ‑ информационное окно с голубым символом i;

mb_IconQuestion ‑ окно подтверждения с зеленым вопросительным знаком.

Флаги, указывающие номер кнопки по умолчанию: mb_DefButton1 (1), mb_DefButton2 (2), mb_DefButton3 (3), mb_DefButton4 (4).

Флаги модальности: mb_AppModal (пользователь обязан ответить на вопрос, но может работать с другими окнами, принят по умолчанию), mbSystemModal (аналогичен предыдущему, но окно всегда остается поверх других окон, используется при ошибках, требующих вмешательства).

Дополнительные флаги (могут задаваться оба флага): mb_Help (добавляется кнопка Справка), mb_TopMost (окно всегда сверху).

Функция возвращает значение idAbort (выбрана кнопка Стоп), idCancel (Отмена), idIgnore (Пропустить), idNo (Нет), idOK (OK), idRetry (Повтор), idYes (Да).

Пример:

If Application.MessageBox('Закончить работу? ', 'Запрос',

mb_YesNo+mb_IconQuestion+mb_DefButton2)=idYes Then Close;

SelectDirectory(S1, S2, out S3): Boolean ‑ вывод окна для поиска файла с текстом сообще­ния S1, с корневым каталогом S2. Имя выбранного файла помещается в S3. Функ­ция возвращает значение True/Else при нажатии кнопки Ok/Cancel.