Функция MessageDlgPos

Begin

Begin

Функция MessageDlg.

Begin

Процедура ShowMessage.

Begin

Implementation

Public

constructor create();

destructor Destroy;

…

end;

{$R *.DFM}

{Реализация конструктора}

Constructor TShape.create(Owner: TComponent);

inherited Create(Owner); //Инициализация унаследованных частей

Width:=65; //Ширина унаследованных свойств

FPen:=TPen.Create; //Инициализация новых полей

FPen.OnChange:=PenChanged;

end;

Глава VIII. Процедуры и функции, реализующие диалоги

Delphi предлагает ряд процедур и функций отображающие диалоги общего назначения.

Процедура ShowMessage (const S:String)отображает окно сообщения с кнопкой ОК. Заголовок содержит название исполняемого файла приложения, а строка S выводится как текст сообщения.

Пример: Отображение простейшего окна сообщений.

Procedure TForm1.Button1Click(Sender: TObject);

ShowMessage(‘Простейшее диалоговое окно’);

end;

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

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

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

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

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

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

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

Название	Значение
mbYes	Yes
mbNo	No
mbOK	OK
mbCancel	Cancel
mbHelp	Help
mbAbort	Abort
mbRetry	Retry
mbIgnore	Ignore
mbAll	All
mbYesNoCancel	[mbYes,mbNo,mbCancel]
mbOKCancel	[mbOK,mbCancel]

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

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

Procedure TForm1.Button1Click(Sender:TObject);

Var rez:TModalResult;

If edit1.text<> DateToStr (Date) then

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

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

If rez=mrNo then edit1.setfocus;

end;

end;

Функция MessageDlgPos (const S: String; AType: TMsgDlgType; AButtons:TMcgDlgButtons; HelpCtx: Longint; X,Y:integer): Word отличается от MessageDlg наличием параметров X и Y, управляющих положением окна на экране.

Дата добавления: 2015-05-09