Das war doch zu schnell. Habe die Prozedur global gemacht :
procedure TForm1.AppException(Sender: TObject; E:
Exception);
begin
Messagedlg('Fehler : '+ E.Message, mterror,[mbok],0);
end;
procedure TForm1.FormCreate(Sender: TObject);
BEGIN
Application.OnException := AppException;
end;
Für ein einzelnes Feld zu prüfen, habe ich im Except-Block mit Edit1.SetFocus den Cursor gezwungen, solange in dem Feld zu bleiben, bis ein plausibler Wert eingetragen war.
Global geht das aber nicht. Vielmehr muß ich jetzt den Cursor in das entsprechende Feld 'zurückschicken', welches den Fehler produziert hat, egal welches das war! Wie mach ich jetzt das?
Gruß
Hansa