MessageDlg Delphi的IF语句

Question

如何使用if语句获取在"MessageDlg"中单击的按钮的状态？

继承我的代码:

if MessageDlg('Message',mtError,[mbYesNoCancel],0) = No
    then ShowMessage('Message2');

我刚才看到我的IT老师写了这样的东西,但我不记得语法了.

Answer 1

该文件说:

MessageDlg返回用户选择的按钮的值.下表列出了可以出现在消息框中的每种类型按钮的TMsgDlgBtn值,以及用户选择该按钮时返回的相应值:

TMsgDlgBtn Value    Corresponding return value
mbOK                mrOk
mbCancel            mrCancel
mbYes               mrYes
mbNo                mrNo
mbAbort             mrAbort
mbRetry             mrRetry
mbIgnore            mrIgnore
mbAll               mrAll
mbNoToAll           mrNoToAll
mbYesToAll          mrYesToAll
mbClose             mrClose

所以你需要测试mrNo.

我建议你学习在哪里找到文档,让你的生活更轻松.