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
