Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Banner

Delphi - Outros

Como adicionar captions aos botões do DBNavigator?

Por padrão, o DBNavigator não possui uma propriedade para especificar os captions dos botões, mas isto pode ser resolvido com o código abaixo:
type
  TMeuDBNavigator = class(TDBNavigator);

procedure TForm1.FormCreate(Sender: TObject);
const
  Legendas: array[TNavigateBtn] of string = (
    'Primeiro', 'Anterior', 'Próximo', 'Último',
    'Incluir', 'Excluir', 'Editar', 'Salvar',
    'Cancelar', 'Atualizar');
var
  Botao: TNavigateBtn;
begin
  for Botao := nbFirst to nbRefresh do
  begin
    with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
    begin
      Caption := Legendas[Botao];
      Layout := blGlyphTop;
    end;
  end;
end;

O conteúdo desta página pode ajudar alguém? Compartilhe!