Hallo zusammen,
erst einmal vielen Dank für die Hilfe!
Nachdem ich zunächst die "Messageboxlösung" ausprobiert habe:
Delphi-Quellcode:
...
msg:=GetADOErrorString(ADOConnection1);
Messagebox(0,pAnsichar(msg),'
ADO-DB Error',MB_OK);
kann ich davon nur abraten, da auch dort manchmal ein Sprung ins Nirwana erfolgt.
Ich hab jetzt den Vorschlag von EMBa eingesetzt und es scheint zu funktionieren.
Wobei so richtig verstanden hab ich es nicht:
Delphi-Quellcode:
// Cancel the mouse capture ??
if GetCapture <> 0
then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
{--- wofür soll das gut sein?}
// Now actually show the exception
if FException
is Exception then {----- warum diese Unterscheidung?}
Application.ShowException(FException)
else
SysUtils.ShowException(FException,
nil);
Gruß
K-H