：请推荐一个比较好的DBNavigator

Question

至少按钮上的符号不是+-号，而是汉字

Answer 1

对吖，重载一下，自己重画Navigator

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, ComCtrls;type
  TForm1 = class(TForm)
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  ///
  type
    TMyNavgator = class(TDBNavigator);
  type
    TmyPageControl=class(TCustomTabControl);
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
TMyNavgator(DBNavigator1).Buttons[nbFirst].Caption:='第一条';
TMyNavgator(DBNavigator1).Buttons[nbPrior].Caption:='上一条';
TMyNavgator(DBNavigator1).Buttons[nbNext].Caption:='下一条';
TMyNavgator(DBNavigator1).Buttons[nbLast].Caption:='最后一条';
TMyNavgator(DBNavigator1).Buttons[nbInsert].Caption:='添加';
TMyNavgator(DBNavigator1).Buttons[nbDelete].Caption:='删除';
TMyNavgator(DBNavigator1).Buttons[nbEdit].Caption:='修改';
TMyNavgator(DBNavigator1).Buttons[nbPost].Caption:='提交';
TMyNavgator(DBNavigator1).Buttons[nbCancel].Caption:='撤销';
TMyNavgator(DBNavigator1).Buttons[nbRefresh].Caption:='刷新';
end;