我这儿有一段代码,你拿去看看对你是否有用。我只是在用户在DBGrid中编辑时按动回车键移动焦点的时候会拦截,其他情况,你自己去考虑一下吧。procedure TInfoPrepInputFrm.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var cur:integer; begin if key = VK_RETURN then begin cur := dbgrid1.SelectedIndex; if cur = dbgrid1.FieldCount - 1 then begin //在此判断当前记录是否有字段值为空,并作相关处理; end; end; end;
table query
的事件中
onEditErr
onpostErr
onDeletErr
onEditErr
onpostErr
onDeletErr
在此三个事件中我已经试过,系统的英文提示还是出现
是系统的英文提示先出现,我的获取的中文错误提示才显示出来。
我用StringGrid,TreeView,ListView之类的东西。
麻烦就麻烦点,多数事情自己“说”了算,没有必要全部都交给
Borland。
query.onpost/edit/..error事件;自己写一下error方法;
exptionevten//不记了
在Onposterror,onediterror写自己的error提示
是出现了,但出现这个提示之后系统的英文提示还
是出现。
Shift: TShiftState);
var
cur:integer;
begin
if key = VK_RETURN then
begin
cur := dbgrid1.SelectedIndex;
if cur = dbgrid1.FieldCount - 1 then
begin
//在此判断当前记录是否有字段值为空,并作相关处理;
end;
end;
end;
生成。