Ich habe im Netz einen Lösungsansatz gefunden, der für meine Zwecke nützlich war.
Code:
uses AwUser;
type
TReaderException = procedure(ExceptObject: TObject; ExceptAddr: Pointer) of object;
type
TForm1 = class(TForm)
private
FOnReaderException:TReaderException;
procedure OnReaderException(ExceptObject: TObject; ExceptAddr: Pointer);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FOnReaderException:=OnReaderException;
// Set global
exception handler for AsyncPro
GShowExceptionHandler:=@FOnReaderException;
end;
procedure TMainWin.OnReaderException(ExceptObject: TObject;
ExceptAddr: Pointer);
begin
// Eigenes
Exception-Handling
end;
Vielleicht ist das ja für Andere auch nützlich...