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.