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

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.

Воспроизведение звуков

Beep[(G,T:Cardinal)]:Boolean ‑ подача звукового сигнала с частотой G герц (37‑32767) и длительностью T миллисекунд (только для Windows NT).

MessageBeep(N):Boolean ‑ подача звукового сигнала типа N: mb_Icon­Nas­te­risk (звездочка), mb_IconExclamation (восклицание), mb_IconHand (крити­чес­кая ошибка), mb_IconQuestion (вопрос), mb_Ok (стандартный звук). Звуки устанавливаются панелью управления Windows.

PlaySound(S; Hmod: Hinst; fdwSound: Cardinal):Boolean ‑ воспроизводит звук источника S (функция в модуле mmsystem). Hmod=0 для звукового файла. Если S=0, то звук прекращается. Параметр fdwSound задает флаги (через операцию Or) воспроизведения звука (основные): Snd_Async (асинхронное воспроизведение), Snd_FileName (источник звука ‑ файл под именем S), Snd_Loop (повторение звука), SndResource (S является именем ресурса, Hmod ‑ дескриптор выполняемого файла с загружаемым ресур­сом), Snd_Purge (останавливает любые звуки).

Пример: PlaySound('c:\Win98\media\The Microsoft Sound.wav',0,

snd_FileName or snd_Async);