Kurzfassung aus Delphi:
Delphi-Quellcode:
procedure TApplication.HandleException(Sender: TObject);
begin
if Assigned(FOnException)
then
FOnException(Sender,
Exception(ExceptObject))
else
ShowException(
Exception(ExceptObject));
end;
procedure TApplication.WndProc(
var Message: TMessage);
begin
try
{bearbeiten der Nachrichtenschleife}
except
HandleException(Self);
end;
end;
wie gesagt, einfach die CodeTeile per Try-Except absichen, wo etwas passieren kann
und diese Try-Except-Blöcke sind üerall in der
Unit Forms verteilt (vorallem fast überall, wo Ereignisprozeduren des Programmierers aufgerufen werden).