ХI. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С КЛАССАМИ И КОМПОНЕНТАМИ

5. Функции и процедуры для работы с диалоговыми окнами и сообщениями

Функция MessageDlgPos(
const Msg: string;
AType: TMsgDlgType;
AButtons: TMsgDlgButtons;
HelpCtx: LongInt;
X, Y: Integer ): Word;

Модуль: Dialogs

type

TMsgDlgButtons = set of TMsgDlgBtn;

TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mnNoToAll, mbYesToAll, mbHelp);

TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);

const
(дополнительные константы для параметра Buttons)

mbYesNoCancel = [mbYes, mbNo, mbCancel];
mbOKCancel = [mbOK, mbCancel];
mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];

Описание
Функция выводит диалоговое окно с заданным сообщением в позицию экрана с координатами X, Y и возвращает выбор пользователя.
Текст сообщения указывается в параметре Msg.
Параметр AType определяет вид сообщения (сообщение об ошибке, информация, предупреждение и т.д.). От значения данного параметра зависит внешний вид окна сообщения.
Параметр AButtons указывает, какие стандартные кнопки должны быть отображены на диалоговом окне.
Параметр HelpCtx определяет идентификатор контекста электронной справки, которая должна появится при нажатии на клавишу [F1] в момент, когда на экране открыто диалоговое окно сообщения.
Функция возвращает значение, показывающее, какую из кнопок на диалоговом окне выбрал пользователь. Результат может иметь одно из следующих значений:

mrNone mrAbort mrYes

mrOk mrRetry mrNo

mrCancel mrIgnore mrAll

Пример
if MessageDlgPos('Вы действительно хотите выйти из программы?', mtConfirmation, [mbYes, mbNo], 0, 200, 3) = mrYes
then Close;

[Вернуться к содержанию]