Title: How to handle exceptions globally
1.
Declare your custom exception handler:
{ Public declarations }
procedure MyExceptionHandler(Sender : TObject; E : Exception );
2.
Define your exception handler in the "implementation" section:
In den Implementations-Abschnitt kommt dieser Code:
procedure TForm1.MyExceptionHandler(Sender : TObject; E : Exception );
begin
MessageDlg('ERROR: ' + E.Message);
end;
3.
Assign the created exception handler to your application's OnException event.
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := MyExceptionHandler;
end;