Функция MessageDlg.

Функция MessageDlg(const S: String; AType: TMsgDlgType; AButtons:TMcgDlgButtons; HelpCtx: Longint): Word отображает окно сообщений в центре экрана. Она позволяет получить ответ пользователя. Параметр S содержит выводимое сообщение. Тип окна сообщения определяется параметром AType, который принимает следующие значения:

§ mtWarning – окно содержит черный восклицательный знак в желтом треугольнике и заголовок Warning.

§ mtError – окно содержит белый крест в красном круге и заголовок Error.

§ mtInformation –окно содержит букву i синего цвета в белом круге и заголовок Information.

§ mtConfirmation –окно содержит знак ? синего цвета в белом круге и заголовок Confirmation.

§ mtCustom – окно не содержит картинки, в заголовке выводится название исполняемого файла приложения.

Параметр AButton задает набор кнопок окна и может принимать любые комбинации следующих значений, которые задают надпись на кнопке:

При нажатии любой из этих кнопок, кроме Help, закрывается диалог и возвращается функцией MessageDlg модальный результат (свойство ModalResult), проанализировав который, можно управлять выполнением приложения.

Пример: Использование функции MessageDlg.

Procedure TForm1.Button1Click(Sender:TObject);

Var rez:TModalResult;

Begin

If edit1.text<> DateToStr (Date) then

Begin

rez:=MessageDlg(‘Неправильная дата’#13’Исправить автоматически?’, mtError,[mbOK,mbNo],0);

If rez=mrOK then edit1.text:=DateToStr(Date);

If rez=mrNo then edit1.setfocus;

end;

end;