重新提问：怎样把DBNavigator上的图标改为汉字？比如改为第一条，前一条，后一条，插入，删除等等。

Question

        Buttons[nbFirst].Caption := '首笔';
        Buttons[nbPrior].Caption := '上笔';
        Buttons[nbNext].Caption := '下笔';
        Buttons[nbLast].Caption := '末笔';
        Buttons[nbInsert].Caption := '新增';
        Buttons[nbDelete].Caption := '删除';
        Buttons[nbEdit].Caption := '修改';
        Buttons[nbPost].Caption := '存档';
        Buttons[nbCancel].Caption := '取消';
        Buttons[nbRefresh].Caption := '刷新';
来点分吧

Answer 1

//感谢楼上的提示procedure TForm1.FormCreate(Sender: TObject);
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;