当MessageBox()触发后（只有OK按钮），怎样在单击OK后中止运行后面的代码运行?

Question

MessageBox()只用于通知用户一些信息而已！
  用MessageDlg函数， 例：
  if MessageDlg('Do you want quit? ',mtInformation,mbOkCancel,0)=mrOk then
  (Do yoursomething);
  else 
  (Do your other Something);

Answer 1

ShowMessage('1');
 exit;
 ShowMessage('2');//此句不执行;

Answer 2

if MessageDlg('Do you want quit? ',mtInformation,mbOkCancel,0)=mrOk then
  Exit;

Answer 3

if messagebox('sdfsdf','fsdfs',1)=1 then
  exit;ok好像是1你在帮组里查一下

Answer 4

我不是要showMessage后就退出，还要回到先前的语句.

Answer 5

可能只有用goto语句了, 建立一个lable, :)

Answer 6

if MessageDlg('Do you want quit? ',mtInformation,mbOkCancel,0)=mrOk then Application.Terminet

Answer 7

写个While循环,当点击MessageDlg()=mrOk 继续循环,否则Break;