修改 DBNavigator 的 click事件；

 下面的代码，功能在于　把按下　nbPost　和 nbInsert　键时，先判断一下，相关的输入框是否符合你自己的要求。

如果不符合就　Abort　它即可。

同理，可以将其它　按钮进行相应的处理以达到　修改其事件的目的。

1. procedure TfrmBaseSetup.DBNavigator1BeforeAction(Sender: TObject;
2.   Button: TNavigateBtn);
3. begin
4.    case Button of
5.      nbPost,nbInsert :begin
6.        if Trim(DBEditEh1.Text)='' then begin
7.          MsgBox('种类不能为空！',1);
8.          DBEditEh1.SetFocus;
9.          Abort;
10.        end;
11.        if Length(DBEditEh2.Text)<>2 then begin
12.          MsgBox('前缀编号的长度必须为两位数字！',1);
13.          DBEditEh2.SetFocus;
14.          Abort;
15.        end;
16.      end;
17.    end;
18. end;

说明一下：MsgBox　是被我简化过的 MessageBox　函数，代码如下：

1. function MsgBox(Msg:Variant; Flag:longint=0;Title:string=''):integer;
2. //简化MessageBox函数
3. begin
4.   if length(title)=0 then title:=SApp_Name; 
5.   case flag of
6.     0:flag:=MB_OK + MB_ICONINFORMATION;
7.     1:flag:=MB_OK + MB_ICONERROR;
8.     2:flag:=MB_YESNO + MB_ICONERROR;
9.     3:flag:=MB_YESNO + MB_ICONWARNING;
10.     4:flag:=MB_YesNo +MB_ICONQUESTION;
11.     else
12.       flag:=MB_OK + MB_ICONERROR;
13.   end;  Result:=application.MessageBox(pchar(vartostr(Msg)),pchar(Title),flag);
14. end;