漢化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;