如此菜的问题,高手就不要回答了.

Question

我用TRY_EXCEPT 语句时,需要SHOWMESSAGE()后,退出整个程序,让用户检查后重新运行程序,以前都使用那个小"X"的,现在让我写代码,却不会.
不要批评我.

Answer 1

Showmessage(MyMsg);
close;//也就是关掉主窗口就关了整个Project的程序。如果当前不是主窗口，则只要说明是主窗口的close，即MainForm.close;

Answer 2

TRY
  do SomeThing....
EXCEPT 
  ShowMessage('....');
  Exit;
end;

Answer 3

CLOSE不行,程序照常运行
EXIT也不行,因为我在FORM.SHOW里有代码,题是访问错误.

Answer 4

在FORM的ONCLOSE事件加如下代码
action=cafree;
如果你想控制程序流程的话，可以自定义错误类型并在需要的时候触发

Answer 5

在窗体的close事件是添写如代码，对了，不用这样批评自己的，都是从这个阶段过来的人，不怕不会，就怕不问：）
procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagedlg(‘您确定要退出系统吗？',mtinformation,[mbyes,mbno],0)=mryes then
application.Terminate
else
action:=canone;
end;
在想在做退出的按钮添写如下
procedure Tmain.button1click(Sender: TObject);
begin
close;
end;

Answer 6

//试一下这个！～～
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose :=
    MessageDlg('同意把haerbin982的分给ZswangII？', mtWarning, [mbYes, mbNo], 0) = mrYes;
end;