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

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

1、TMsgDlgType 

?

1 2 3 4 5 6

//滔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

?

1 2 3 4 5 6 7 8 9

//滔Roy  2022.09.29MessageDlg('测试 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　　更新时间：