delphi如何自动关闭异常的对话框

[zql177]

在不用try except end的情况下，如何关闭异常错误弹出的对话框？

[JeffChung]

额，关闭小事，关键在于在不使用try except end的情况下，你怎么知道它在什么时候会出错误

[lsj070599]

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException; //设置处理捕捉异常的方法
end;

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
//你想做的事
end;

[cfjohn]

从没用过try except end的路过

[haisha]

在窗体上放一个ApplicationEvents控件，然后在ApplicationEvents控件的OnException事件中写你想要的代码，该事件可以捕捉该窗体上所有的异常信息，当然除了使用try ... end 以后，你可以让它不弹对话框，也可以弹对话框：比如：showmessage(e.Message);