汉化DBNavigator

procedure CHNDBNavigator(ADBNavigator:TDBNavigator);
var
  i:Integer;
begin
  with ADBNavigator do
     for   I   :=   0   to   ComponentCount   -   1   do
          if   Components[I]   is   TNavButton   then   begin
              case   TNavButton(Components[I]).Index   of
                  nbFirst:   TNavButton(Components[I]).Caption   :=   '首笔';
                  nbPrior:   TNavButton(Components[I]).Caption   :=   '上笔';
                  nbNext:   TNavButton(Components[I]).Caption   :=   '下笔';
                  nbLast:   TNavButton(Components[I]).Caption   :=   '末笔';
                  nbInsert:   TNavButton(Components[I]).Caption   :=   '新增';
                  nbDelete:   TNavButton(Components[I]).Caption   :=   '删除';
                  nbEdit:   TNavButton(Components[I]).Caption   :=   '修改';
                  nbPost:   TNavButton(Components[I]).Caption   :=   '保存';
                  nbCancel:   TNavButton(Components[I]).Caption   :=   '取消';
                  nbRefresh:   TNavButton(Components[I]).Caption   :=   '刷新';
              end;  
          end;
  ADBNavigator.Flat:=True;
  ADBNavigator.ShowHint:=false;
end;