恼人的MessageBox

[loveness]

If Application.MessageBox('实收金额为0，确认保存该单？','提示',MB_OKCANCEL+MB_DEFButton2+MB_ICONQUESTION)=IDcancel Then
exit;

本意是希望弹出对话框，默认为第2个按钮（取消），可每次程序运行第一次时，焦点总是默认在第一个按钮上，以后就正常，调试了几天都这样，
实在没办法，就自己做一个表单，模拟这个函数，该表单上只有2个按钮，一个label,无论我是先添加哪个按钮，结果都是程序第一次运行时，默认为确定按钮，以后均正常，NND，折腾了几天了，

[web700]

个人感觉第一个和第二个都一样.

又不是很多时候都用这个对话框..

[loveness]

TO楼上兄弟：前台收银，小姐只知道埋头输入编码，数量，几乎不看屏幕，收银错了怎么办，客户要求出现这种情况，一定要默认到取消按钮

[hthunter]

我这里是正常的诶……不管是第一次还是第二次

[yuzhiyong]

应该没问题!看是否被其它语句控制了.

[loveness]

to: hthunter(核桃-我的心在下雨,雨中我和她携手漫步)
我用的是D版7.0，没有打任何补丁，有关系吗？

[chenxiao223]

建议重装系统!

[azsoft]

有兴趣试试一下

Application.MessageBox('sass','提示',32) //33..100...

if Application.MessageBox('sass','提示',33)=1 then
....

[loveness]

to: azsoft(Try my best) ( )
试了不行，
Application.MessageBox('sass','提示',32)：只出现一个确认按钮
Application.MessageBox('sass','提示',32)：只出现2个按钮，默认还是确定

[loveness]

请问DELPHI7.0有补丁吗？哪里可以下载？
还有什么语句可以实现类似功能？

[fbincrazy]

你系统怀了

[webstorm]

你要是想有保障，再把KeyPress写一下：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then btnCancel.Click;
end;

[insert2003]

不是吧
我这里没问题？

[insert2003]

呵呵
你的D的太假啦！

[loveness]

刚才发现~如果前面加一条无用的messagebox语句，就正常
没有就不正常

[halfdream]

我试了你的代码却没有你说的问题，不过你可以把代码改成下面这样。

If windows.MessageBox(Handle,'实收金额为0，确认保存该单？',
'提示',MB_OKCANCEL+MB_DEFButton2+MB_ICONQUESTION)=IDcancel Then
exit;

[wasi]

MSGHELP

用这个小工具看看

[Frank.WU]

If Application.MessageBox('实收金额为0，确认保存该单？','提示',MB_OKCANCEL+MB_DEFButton2+MB_ICONQUESTION)=IDcancel Then
exit;
在我的系統上測試通過,沒問題哦!

[acys]

if Application.MessageBox(pchar('确定要删除项：'+edit1.text),'系统提示',mb_yesno) = idno then
exit;