dsdt.info tutorial:
Application.OnException := AppException;
Delphi-Quellcode:
procedure TForm1.AppException(Sender: TObject; E:
Exception);
begin
Messagedlg('
Es ist folgender Fehler aufgetreten:'+#10#13#10#13+
E.
Message+#10#13+'
Fehlertyp: '+E.ClassName+#10#13+
'
Sender: '+sender.ClassName'
, mterror,[mbok],0);
end;
wenn du den Messagedlg wech machst werden alle fehler ignoriert ... ob das allerdings schön ist musste selber wissen
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.