Dicas - Utilizando Caption no DBNavigator

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (5)  (0)

Nesta dica veremos como fazer para inserir captions nos botões de um 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

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?