ExceptionHandling in der Projektdatei

[Shaman]

Hallo zusammen

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

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? :gruebel:

Gruss
Shaman

[Dax]

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

[Shaman]

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

[Dax]

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

[Shaman]

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