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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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