Zitat:
Delphi-Quellcode:
procedure TApplication.HandleException(Sender: TObject);
var
O: TObject;
begin
if GetCapture <> 0
then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
O := ExceptObject;
if IsClass(O,
Exception)
then
begin
if not IsClass(O, EAbort)
then
if Assigned(FOnException)
then
FOnException(Sender,
Exception(O))
else
ShowException(
Exception(O));
end else
SysUtils.ShowException(O, ExceptAddr);
end;
Eigentlich muß man da nichts machen.
Wenn etwas an OnException hängt, dann wird Dieses aufgerufen und ansonsten ShowException.
Und TApplicationEvents sollte sich direkt an Application.OnException hängen.
