Delphi XE MessageDlg[2] TMsgDlgType、TMsgDlgBtn用法示例1

Delphi XE MessageDlg[2] TMsgDlgType、TMsgDlgBtn用法示例1

1、TMsgDlgType 

//滔Roy 2022.09.29
MessageDlg('测试 mtInformation.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOk], 0);
MessageDlg('测试 mtWarning.', TMsgDlgType.mtWarning, [TMsgDlgBtn.mbOk], 0);
MessageDlg('测试 mtError.', TMsgDlgType.mtError, [TMsgDlgBtn.mbOk], 0);
MessageDlg('测试 mtConfirmation.', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOk], 0);
MessageDlg('测试 mtCustom.', TMsgDlgType.mtCustom, [TMsgDlgBtn.mbOk], 0);

      

 2、TMsgDlgBtn

//滔Roy  2022.09.29
MessageDlg('测试 mbYesNo.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0);
MessageDlg('测试 mbYesNoCancel.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo, TMsgDlgBtn.mbCancel], 0);
MessageDlg('测试 mbYesAllNoAllCancel.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbYesToAll, TMsgDlgBtn.mbNo,
    TMsgDlgBtn.mbNoToAll, TMsgDlgBtn.mbCancel], 0);
MessageDlg('测试 mbOKCancel.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], 0);
MessageDlg('测试 mbAbortRetryIgnore.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbAbort, TMsgDlgBtn.mbRetry, TMsgDlgBtn.mbIgnore], 0);
MessageDlg('测试 mbAbort、mbIgnore.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbAbort, TMsgDlgBtn.mbIgnore], 0);
MessageDlg('测试 mbHelp.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbHelp], 0);
MessageDlg('测试 mbClose.', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbClose], 0);

    

     

 

 

 

 

创建时间：2022.09.29　　更新时间：