How to place Captions in the DBNavigator?

1) Insert in your form a DBNavigator object.

2) Then, you need to declare a class:

type
  TDBNewNavigator = class ( TDBNavigator );

3) Finally, you use this code to place Caption at each button in the DBNavigator.

...

uses Buttons;

...

procedure TForm1.FormCreate(Sender: TObject);
var
  B: TNavigateBtn;
begin
  for B := Low ( TNavigateBtn ) to High ( TNavigateBtn ) do
    with TDBNewNavigator ( DBNavigator1 ).Buttons [ B ] do
    begin
      Case Index of
        nbFirst   : Caption := 'First';
        nbPrior   : Caption := 'Prior';
        nbNext    : Caption := 'Next';
        nbLast    : Caption := 'last';
        nbInsert  : Caption := 'New';
        nbDelete  : Caption := 'Delete';
        nbEdit    : Caption := 'Edit';
        nbPost    : Caption := 'Post';
        nbCancel  : Caption := 'Cancel';
        nbRefresh : Caption := 'Refresh';
      End;
      Layout := blGlyphTop;
      Hint := Caption;
      ShowHint := True;
    end;
end;