Функции и процедуры Delphi. Справочник.

Функция 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;

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