Nesta dica veremos como fazer para inserir captions nos botes de um DBNavigator. Para isso, basta seguir os seguintes passos:

1) Inclua um Componente DBNavigator no seu formulrio;

2) Em seguida declare a seguinte classe:

type
  TDBNewNavigator = class ( TDBNavigator ); 
 

3) Finalmente, escreva o seguinte cdigo para inserir captions em cada boto do DBNavigtor:

...

  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 := 'Primeiro'; 
                 nbPrior : Caption := 'Anterior'; 
                 nbNext : Caption := 'Prximo'; 
                 nbLast : Caption := 'ltimo'; 
                 nbInsert : Caption := 'Novo'; 
                 nbDelete : Caption := 'Excluir'; 
                 nbEdit : Caption := 'Editar'; 
                 nbPost : Caption := 'Salvar'; 
                 nbCancel : Caption := 'Cancelar'; 
                 nbRefresh : Caption := 'Atualizar'; 
         End; 
         Layout := blGlyphTop; 
         Hint := Caption; 
         ShowHint := True; 
     end; 
end;
