A global exception handler

Delphi
.NET (2)
Database (71)
Delphi IDE (89)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)

Exchange Links

About this site

Links to us

See also:

Creating a 'global' exception handler

A global exception handler

2 comments. Current rating: 5 stars

(2 votes). Leave comments and/ or rate it.

You may want your own global exception handler to handle "common" errors such as "out of space," etc.
If you try to create a global exception handler, you will experience that surrounding the 'Application.Run' command in the .dpr with a try...except block fails.

You will redirect TApplication's "OnException" event to your main form's exception handler "MyExceptionHandler". The redirection is done in FormCreate, similar to assigning Application.OnHint:

TForm = class()..
  { public declarations }
    procedure MyExceptionHandler(Sender : TObject; E : Exception);
  end;  

{ .. }

procedure TForm1.MyExceptionHandler(
  Sender : TObject; E : Exception );
var
  wRetVal : Word;
begin
  wRetVal := MessageDlg('ERROR: ' + E.message,
               mtError, mbAbortRetryIgnore, 0);

  case wRetVal of
  mrAbort:; { handle "Abort" here... }
  mrRetry:; { handle "Retry" here... }
  mrIgnore:;{ handle "Ignore" here... }
  end;

  { or call the default exception handler:
     Application.ShowException(E); }
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyExceptionHandler;
end;

You don't like the formatting? Check out SourceCoder then!

Comments:

2006-04-05, 05:00:29

[hidden] from India

This is very use ful topic for handling exception globally by simply adding pne procrdure.
its good programming practice.

2006-04-05, 05:01:38

anonymous from India

This is very use ful topic for handling exception globally by simply adding pne procrdure.
its good programming practice.


	Search: