![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Диалоговые окна ввода и вывода сообщений
InputBox(S1, S2, S3): String ‑ вывод окна с заголовком S1, с текстом S2, с полем для ввода сообщения, с умалчиваемым значением S3 и с кнопками OK и Cancel. Функция возвращает введенное пользователем сообщение. Пример: Var Dpt: String; //строка для ввода даты поставки товара... Dpt: =InputBox('Поставки товаров', 'Дата поставки', DateToStr(Date)); InputQuery(S1, S2, var S3): Boolean - функция аналогична функции InputBox, но возвращает 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.
|