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

时间：2019-08-29 15:08:40 阅读：148 评论：0 收藏：0 [点我收藏+]

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;

原文：https://www.cnblogs.com/qi123/p/11429562.html

踩

(0)

评论一句话评论（0）

分享档案

更多>