关于数据库控件DBNavigator的问题

Question

Delphi中数据库控件DBNavigator使用起来不错，但是按钮上“＋”、“－”等含义对于中国的用户不习惯，甚至不知道是什么含义。能否改成相应含义的汉字表示出来，或者有没有类似的控件？谢谢

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls;type
  TMyNavgator = class(TDBNavigator);
  TForm1 = class(TForm)
    DBNavigator1: TDBNavigator;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  TMyNavgator(DBNavigator1).Buttons[nbFirst].Caption:='第一条';
//  TMyNavgator(DBNavigator1).Buttons[nbFirst].Glyph:=nil; //不显示图标
  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;end.