Вывод результатов

1. Часть диалогового окна, предназначенная для вывода информации, называется полем вывода - это компонента Label. Содержимое поля вывода определяется значением свойства Caption – символьного типа

Label1.Caption: =IntToStr(Number) +’kg’ (var Number: Integer)

2. Вывод в окно сообщения

Процедура ShowMessage (.сообщение) выводит окно с текстом

procedure ShowMessage(const Msg: WideString); overload;

ShowMessage (‘Введите вес’);

Функция MessageDlg – более универсальная

function MessageDlg(const Msg: WideString; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;

Обращение выглядит так

Выбор: = MessageDlg(сообщение, Тип, Кнопки, КонтекстСправки)

Значение функции зависит от того, какая из командных кнопок нажата.

Перечислим возможные значения этого параметра и соответствующие описания:

mtWarning – черный знак восклицания на желтом фоне и заголовок «Warning»;

mtError – красный круг с белым крестом и заголовок «Error»;

mtInformation – латинская буква «i» на белом фоне и заголовок «Information»;

mtConfirmation – знак вопроса на белом фоне и заголовок «Confirm»;

mtCustom – пиктограмма отсутствует, а в качестве заголовка используется имя файла приложения. Например, «Project1».

- третий параметр представляет множество значений, которое определяет сколько и каких кнопок будет содержать информационное окно. Значения параметра выбираются из следующего списка: mbYes, MbNo, mbOK, mbCancel, mbHelp, mbAbort, mbRetry, mbIgnore, mbAll. Задавать эти значения можно по отдельности, либо сразу несколько, но всегда в квадратных скобках. Дополнительно определены три константы: mbYesNoCancel, mbOKCancel, mbAbortRetryIgnore, которые задают часто используемые сочетания кнопок. Эти константы заключать в скобки нельзя.

- четвертый параметр определяет номер страницы справочной системы, созданной пользователем, которая будет вызываться при нажатии клавиши < F1 >.

Рис. 1. Примеры окон сообщений

Примечания:

1. MessageDlg может иметь статус функции. Тогда она возвращает в качестве результата значение кнопки, которую выбрали для закрытия окна. Список этих значений: mrNone, mrOK, mrCancel, mrAbort, mrRetry, mrIgnore, mrYes, mrNo, mrAll. Первое из них указывает на то, что ни одна кнопка не была нажата, а другие значения очевидны.

Фрагмент программы с использованием значения, возвращаемого функцией MessageDlg, может быть таким:

If MessageDlg (‘Показать промежуточный результат? ‘, mtConfirmation,

[mbYes, mbNone], 0) = mrYes then …

При любом использовании MessageDlg, окно сообщения выводится в центре формы.