function MessageDLG

Наверх  Предыдущая  Последующая |

function MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

 

Данная функция отображает на экране стандартное диалоговое окно и возвращает код кнопки, нажатой пользователем в диалоговом окне. Применение данной функции позволяет создавать интерактивные скрипты.

Параметры:

Msg - текст сообщения или вопроса, выводимого в диалоговом окне

DlgType - тип диалогового окна. Для задания типа диалогового окна предусмотрен набор констант:

mtWarning - предупреждение
mtError - ошибка
mtInformation - информация
mtConfirmation - запрос подтверждения

С технической точки зрения тип диалогового окна определяет заголовок окна и отображаемую в окне иконку.

Buttons - код, определяющий, какой набор кнопок необходимо отобразить в диалоговом окне.  Для задания набора кнопок предусмотрен набор констант:

mbOk - "ОК"
mbCancel - "Отмена"
mbYes - "Да"
mbNo - "Нет"
mbAbort - "Прервать",
mbRetry - "Повторить",
mbIgnore - "Игнорировать"
Если требуется отобразить несколько кнопок, то код набора кнопок получается суммированием констант (например, mbYes+mbNo).

HelpCtx - код раздела справочной системы, в пользовательских скриптах должен быть равен нулю

 

Функция возвращает код нажатой кнопки:

mbOk - код 1
mbCancel - код 2
mbYes - код 6
mbNo - код 7
mbAbort - код 3,
mbRetry - код 4
mbIgnore - код 5

 

 

Примеры:

 

var

 Res : integer;

begin

 Res := MessageDLG('Выполнить операцию ?', mtConfirmation, mbYes+mbNo, 0);

 AddToLog('Код результата = ' + Inttostr(Res));

end.

 

Пример анализа кода:

var

 FileName : string;

begin

 FileName := 'c:\trojan.exe';

 if MessageDLG('Удалить файл "'+FileName+'" ?', mtConfirmation, mbYes+mbNo, 0) = 6 then 

  DeleteFile(FileName);

end.