如何在DBNavigator中增加一个可以设置caption的属性

Question

如何在DBNavigator中增加一个可以设置caption的属性。例如删除记录的控件为“X”，想在“X”后面再添加一个中文的caption，“增加”，其它按钮类似。

Answer 1

TNavButton(DBNavigator1.Controls[0]).Caption := '第一条';

Answer 2

dulei115 
前途无亮 
－－－－－－－－－－－－－
TNavButton(DBNavigator1.Controls[0]).Caption   :=   '第一条';水平有限，不是很明白。能否详细点。

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls;type
  TDBNavtest=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
   TDBNavtest(DBNavigator1).Buttons[nbFirst].Caption:='首条';
   TDBNavtest(DBNavigator1).Buttons[nbPrior].Caption:='上一条';
   TDBNavtest(DBNavigator1).Buttons[nbNext].Caption:='下一条';
   TDBNavtest(DBNavigator1).Buttons[nbLast].Caption:='末条';
   TDBNavtest(DBNavigator1).Buttons[nbInsert].Caption:='添加';
   TDBNavtest(DBNavigator1).Buttons[nbDelete].Caption:='删除';
   TDBNavtest(DBNavigator1).Buttons[nbEdit].Caption:='修改';
   TDBNavtest(DBNavigator1).Buttons[nbPost].Caption:='提交';
   TDBNavtest(DBNavigator1).Buttons[nbCancel].Caption:='撤销';
   TDBNavtest(DBNavigator1).Buttons[nbRefresh].Caption:='刷新';
end;end.