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 更新时间：
标签：示例,Delphi,mbOk,TMsgDlgType,MessageDlg,TMsgDlgBtn,测试,mtInformation From： https://www.cnblogs.com/guorongtao/p/16741852.html