如何截断系统错误？？？

Question

在delphi中，当你所添加的数据与数据库的要求不符时，库本身就会发送一条消息，但我想如何才能截断这条消息，并发出一条自己的消息呢，（不只是截断，并让数据回到原始状况，不能把错误 的也传 回去），多谢 ，一定给分的。

Answer 1

使用TApplicationEvents组件，在onEvents1Exception事件中写代码Messagebox(handle, '数据错误，请重新输入！', '说明', mb_ok + MB_ICONINFORMATION);