Ich habe noch eines vergessen...
Die
Exception werden zu einen eigenen
Exception-Handler weitergleitet...wo sie auch ankommen.
Delphi-Quellcode:
procedure TForm1.HandleOnException(Sender: TObject; E:
Exception);
begin
if (E
is EComPort)
then
begin
//-> Hier wird die Exception hingeleitet
// Jedoch fand ich noch keinen Weg meine Exception
// sauber zu verarbeiten
MessageDlg(E.
Message, mtError, [mbOk], 0);
end
else begin
screen.Cursor:=crDefault;
MessageDlg(E.
Message, mtError, [mbOk], 0);
end;
end;
Ok, das noch (es ist eine EComPort-
Exception)
P.S. die Sache mit dem Trigger hört sich interessant an
Zitat:
in meinem Programm lassen ich einen Trigger mitlaufen
Vielleicht könnte das schon helfen...könnte hier ein kleine Hilfe gebrauchen