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

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.