Delphi MessageBox默认按钮问题

最近客户提出一个比较奇怪的要求，弹窗提示时，默认按钮为【否】，通常情况下，弹窗的咨询窗口，通常按钮有2个，是与否，按习惯先左后右，默认按钮是【是】。

以往也没有遇到这种做法，不过，DELPHI有帮助文件，按F1看了下帮助文件（如上图例子），结果还是跟平常使用的一样，并没有得到有用的信息。

还是要靠搜索啊，资料很少，在不断收缩搜索范围后，总算找到一段有用的代码，直接测试了下，发现是正解。

完整代码如下：

if Application.MessageBox(PChar(‘检测到已超出保质期，是否继续操作？’),
‘请问’,MB_ICONQUESTION + MB_YesNo or MB_DEFBUTTON2)=IDNO then
begin
Exit;
end;

查了MB_DEFBUTTON的资料，解释如下：

可指定预设Focus在哪一个按钮

MB_DEFBUTTON1：指定focus在左边第一个按钮，这是默认值。

MB_DEFBUTTON2、MB_DEFBUTTON3、MB_DEFBUTTON4，以此类推，指定focus在左边第二、三、四个按钮。

果然还是搜索万能的，有问题就百度一下吧。