Dicas - Utilizando Caption no DBNavigator

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

webmaster@clubedelphi.com.br