汉化数据导航条

在表单的create事件写这段代码


var
  i:integer;
begin
 for I := 0 to DBNavigator1.ComponentCount - 1 do
    if DBNavigator1.Components[I] is TNavButton then begin
      case TNavButton(DBNavigator1.Components[I]).Index of
        nbFirst: TNavButton(DBNavigator1.Components[I]).Caption := '首页';
        nbPrior: TNavButton(DBNavigator1.Components[I]).Caption := '上页';
        nbNext: TNavButton(DBNavigator1.Components[I]).Caption := '下页';
        nbLast: TNavButton(DBNavigator1.Components[I]).Caption := '末页';
        nbInsert: TNavButton(DBNavigator1.Components[I]).Caption := '新增';
        nbDelete: TNavButton(DBNavigator1.Components[I]).Caption := '删除';
        nbEdit: TNavButton(DBNavigator1.Components[I]).Caption := '修改';
        nbPost: TNavButton(DBNavigator1.Components[I]).Caption := '存档';
        nbCancel: TNavButton(DBNavigator1.Components[I]).Caption := '取消';
        nbRefresh: TNavButton(DBNavigator1.Components[I]).Caption := '刷新';
      end;
    end;

end;