Problem mit globalem Exception Handling

[WebUpdate System]

Hallo Gravitar,

weshalb erstellst Du dir nicht ein eigenes Exeption Objekt, welchem Du im Create das Objekt mitgibst. Dann kannst Du zentral die Exception abfragen und hast volle Kontrolle über den Kontext.

Nur mal so als Idee

[Gravitar]

Hi himitsu,

auch wenn es sinnlos ist hat es durch diesen Hinweis

Zitat:

S: so als Tipp: schau mal wo SetFokus deklariert wurde ... mindestens diese Klasse müstest du definieren

jetzt doch funktioniert.

Wenn man MyErrorObject als TWinControl definiert, funktioniert auch .setfocus.

Hier die vollständige Error-Routine:

Delphi-Quellcode:

procedure TFrmMain.MyExceptionHandler(Sender : TObject; E : Exception );
var err : TObject;
begin
  MessageDlg('ERROR: ' + E.Message, mtError, [mbOK],0);
  MyErrorObject.SetFocus;
  MyErrorObject := nil;
end;

Ist hier zwar manchmal wie Schnitzejagd, aber trotzdem: Problem gelöst.

Und mein Programm schnurrt wie ein Kätzchen

[Ralf Kaiser]

Nochmal eine Frage:

Was passiert jetzt wenn in deinem Programm eine andere Exception auftritt (z.B. bei Speicherproblemen auf dem Rechner)? Das Programm läuft in deinen globalen Exceptionhandler und es knallt gewaltig weil MyErrorObject nichts mit der anderen Exception zu tun hat.

Du solltest zumindest nachprüfen ob MyErrorObject <> nil ist und ob es auf ein TEdit verweist. Ausserdem solltest du prüfen ob die auflaufende Exception einem deiner erwarteten Exceptiontypen entspricht.

[Gravitar]

Zitat von Alfi001:

Nochmal eine Frage:

Was passiert jetzt wenn in deinem Programm eine andere Exception auftritt (z.B. bei Speicherproblemen auf dem Rechner)? Das Programm läuft in deinen globalen Exceptionhandler und es knallt gewaltig weil MyErrorObject nichts mit der anderen Exception zu tun hat.

Du solltest zumindest nachprüfen ob MyErrorObject <> nil ist und ob es auf ein TEdit verweist. Ausserdem solltest du prüfen ob die auflaufende Exception einem deiner erwarteten Exceptiontypen entspricht.

Mhm, stimmt.

Ich werde vor .setfocus prüfen ob <> nil.

Danke