Problem mit globalem Exception Handling

[Gravitar]

Hi,

ich versuche gerade in meinem Programm ein globales Exception Handling einzuführen.

Das klappt auch schon ganz gut mit einer eigenten Exception-Behandlungs-Routine:

Delphi-Quellcode:

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

und der dazugehörigen Zuordnung des Ereignisses im OnCreate-Ereignis des Hauptformulars (FrmMain):

Application.OnException := frmmain.MyExceptionHandler; Dadurch erspare ich mit die vielen Try-Except-Blöcke.

Nun aber zum Problem:

Wie kann ich nach einer Exception den Focus auf das fehlerauslösende Feld legen?

Gruß, Andreas