Subject | Catching an exception |
---|---|
Author | Gerhardus Geldenhuis |
Post date | 2002-09-19T14:56:15Z |
Hi
I have the following code to catch an exception:
procedure TForm1.IBOQuery1Error(Sender: TObject; const ERRCODE: Integer;
ErrorMessage, ErrorCodes: TStringList; const SQLCODE: Integer;
SQLMessage, SQL: TStringList; var RaiseException: Boolean);
begin
if ERRCODE = 335544665 then
begin
showmessage('Jy kan nie dieselfde waarde twee keer intik nie');
RaiseException:=False;
// IBOQuery1.IB_Transaction.Activate
// IBOQuery1.Edit;
end;
end;
How do I put the query back in edit mode after I have displayed my own error
message.
I have tried the two statements that is commented out and have looked for
something but I couldn't' find anything.
Groete
Gerhardus
I have the following code to catch an exception:
procedure TForm1.IBOQuery1Error(Sender: TObject; const ERRCODE: Integer;
ErrorMessage, ErrorCodes: TStringList; const SQLCODE: Integer;
SQLMessage, SQL: TStringList; var RaiseException: Boolean);
begin
if ERRCODE = 335544665 then
begin
showmessage('Jy kan nie dieselfde waarde twee keer intik nie');
RaiseException:=False;
// IBOQuery1.IB_Transaction.Activate
// IBOQuery1.Edit;
end;
end;
How do I put the query back in edit mode after I have displayed my own error
message.
I have tried the two statements that is commented out and have looked for
something but I couldn't' find anything.
Groete
Gerhardus