如何改DBnavigator Button组中各个button的caption?

Question

//参考
http://www.csdn.net/Expert/TopicView1.asp?id=562753

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  with DBNavigator1 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;
end;