Hallo Klaus,
da gibt es sicher sehr verschiedene Ansätze, je nachdem welche Ansprüche du hast. Wie wäre es hiermit:
Delphi-Quellcode:
procedure TDemoForm.ApplicationEventsException(Sender: TObject;
E:
Exception);
begin
if E.
Message = SMaskEditErr
then ShowMessage('
Kick it!')
else ShowException(E, ExceptAddr);
end;
Ich verwende dabei die Komponente TApplicationEvents.
Freundliche Grüße