Utilizando Captions em Componentes DBNavigator
Nesta dica veremos como fazer para inserir captions nos botões de um DBNavigator. Para isso, basta seguir os seguintes passos:
1) Inclua um Componente DBNavigator no seu formulário;
2) Em seguida declare a seguinte classe:
type
TDBNewNavigator = class (TDBNavigator);
3) Finalmente, escreva o seguinte código para inserir captions em cada botão 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 := 'Próximo';
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;
Obs: Para uma melhor visualização dos Captions, configure as propriedades Height e Width do DBNavigator com os seguintes valores: Height = 41 e Width = 540.
por Edison Costa
