delphi 捕捉全局异常错误的方法

private
    { Private declarations }
  public
  procedure GlobalExceptionHandler(Sender: TObject; E: Exception);
    { Public declarations }
  end;proced
 
 
ure TForm1.FormCreate(Sender: TObject);

begin

Application.OnException := GlobalExceptionHandler;

end;

 

 

procedure TForm1.GlobalExceptionHandler(Sender: TObject; E: Exception);

begin

mmLog.Lines.Add(Sender.ClassName + ‘: ‘ + E.Message);

end;

delphi 捕捉全局异常错误的方法

上一篇:C#代码实现IoC(控制反转)设计,以及我对IoC的理解


下一篇:winform子窗口调用父窗口的控件及方法