messagedlg delphi

Ответ от Gennady[гуру]
Доброго времени суток.Набрать MessageDlg и нажать кнопку F1. Там все написано. А кратко так. Данная функция входит в состав модуля Dialogs и объявляется следующим образом function MessageDlg(const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: Longint): Word;где Msg - строка, которую надо показать пользователю; AType - тип окна диалога (может принимать следующие значения )mtWarningA message box containing a yellow exclamation point symbol. (с восклицателдьным знакомl, а остальное переведите сами или определите экспериментально. )mtErrorA message box containing a red stop sign.mtInformationA message box containing a blue "i".mtConfirmationA message box containing a green question mark.mtCustomA message box with no bitmap. The caption of the message box is the name of the application\'s executable file.AButtons - определяет какие кнопки будут отбражатьсяmbYesA button with the text \'Yes\' on its facembNoA button with the text \'No\' on its facembOKA button with the text \'OK\' on its facembCancelA button with the text \'Cancel\' on its facembHelpA button with the text \'Help\' on its facembAbortA button with the text \'Abort\' on its facembRetryA button with the text \'Retry\' on its facembIgnoreA button with the text \'Ignore\' on its facembAllA button with the text \'All\' on its faceКроме того можно указать комбинацию кнопокmbYesNoCancelPuts Yes, No, and Cancel buttons in the message boxmbOkCancelPuts t OK and Cancel buttons in the message boxmbAbortRetryIgnorePuts Abort, Retry, and Ignore buttons in the message boxФункция возвращает следующие значенияmrNone, mrAbort, mrYes, mrOk, mrRetry, mrNo, mrCancel, mrIgnore, mrAllА вот пример использования.procedure TForm1.Button1Click(Sender: TObject);begin if MessageDlg(\'Welcome to my Object Pascal application. Exit now?\', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin MessageDlg(\'Exiting the Object Pascal application.\', mtInformation, [mbOk], 0); Close; end;end;Удачи!