程序出错时，自己写的一个捕获异常，弹出一个对话框，我用的是MessageBox，但是我发觉用户不用点击对话框中的确定按钮也可以进行其他窗口

Question

对使用ShowMessage或者Application.messageBox

Answer 1

MessageBox(你的窗口句柄,'确实要删除当前记录吗？','提示',MB_YESNO)

Answer 2

加入一个表，有一个接口可以输入相应信息，设为messagefrm
 if(MessageBox(0,'确实要删除当前记录吗？','提示',MB_YESNO)=IDYES)then
  Begin
    try
      ADODevc.Delete;
    except
      messagefrm.showmodal;
      //MessageBox(0,'当前记录被索引，不能被删除！','提示',MB_OK);
      Exit;
    end;
  End;

Answer 3

MessageBox(Handle,'确实要删除当前记录吗？','提示',MB_YESNO+MB_SYSTEMMODAL)=IDYES

Answer 4

MessageBox(Handle,'确实要删除当前记录吗？','提示',MB_YESNO+MB_SYSTEMMODAL)=IDYES

Answer 5

if MessageBox(0,'当前记录被索引，不能被删除！','提示',MB_OK)<>IDOK then
exit;

Answer 6

同意楼上，自定义一个消息form，用showmodal弹出即可。

Answer 7

如果你理解了show和showmodal的用法相信你会更上一层楼的。
好象我一开始学习DELPHI时书上就很仔细的说明了这个问题！

Answer 8

我觉得关键是
“MessageBox(0,'当前记录被索引，不能被删除！','提示',MB_OK);”
MessageBox()过程的第一个参数为0（即nil），当然“用户可以不点击对话框中的确定按钮也可以进行其他操作”了。

Answer 9

我觉得关键是语句：
“MessageBox(0,'当前记录被索引，不能被删除！','提示',MB_OK);”
中的MessageBox()的第一个参数主设为0（即nil）不对。
应把此外的0改为某一具体窗口的句柄。
如：
MessageBox(Form1.Handle,'当前记录被索引，不能被删除！','提示',MB_OK);”
或者
MessageBox(Application.Handle,'当前记录被索引，不能被删除！','提示',MB_OK);”