Hallo zusammen

Ich möchte eine globale Fehlerbehandlung realisieren. Dazu setze ich direkt im dpr-File an:

zusammenfalten · markieren

Delphi-Quellcode:

program Project1;

uses
  Forms, SysUtils, Dialogs,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

procedure GlobalExceptionHandler(Sender: TObject; E: Exception);
begin
  ShowMessage('Globaler ExceptionHandler');
end;

begin
  Application.Initialize;
  @Application.OnException:= @GlobalExceptionHandler;
  raise Exception.Create('Irgendein Fehler halt');
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Doch der ExceptionHandler wird nie aufgerufen. Warum?

Gruss
Shaman

Gib der Application doch aus TForm.Create -- oder lass mal auf beiden Seiten das "@" weg.

Dann bringt er inkompatible Typen, weil GlobalExceptionHandler keine Methode ist...

Dann mach es zur Methode, z.B. in einer TForm, oder einer eigenen TApplication-Klasse.

Wenn eine Exception von einer Unit ausgelöst wird, funktioniert es, aber nicht wenn ein Fehler in der Projektdatei selber auftritt...