procedure TForm1.ADODataSet1PostError(DataSet: TDataSet;
E: EDatabaseError;
var Action: TDataAction);
var
adoerrors:errors;
adoerror:error;
icount:integer;
begin
adoerrors:=adoconnection1.Errors;
for icount:=0 to adoerrors.count-1do
begin
adoerror:=adoerrors.item[icount];
listbox1.Items.add('Error Number : ' + inttostr(adoerror.number));
listbox1.items.add('Error Source : ' + adoError.source);
listbox1.items.add('Error Description : '+ adoerror.description);
listbox1.items.add('Error HelpFile : ' + adoerror.helpfile);
listbox1.items.add('Error SWLState : ' + adoerror.sqlstate);
listbox1.Items.add('Error NativeError : '+ inttostr(adoerror.nativeError));
end;
end;
上段程序在用户界面上显示了错误信息，但系统还会弹出错误信息提示框，
如何将这个提示框隐藏？
