DBNavigator - Mensagem no Cadastro / Exclusão / Edição

Delphi

10/11/2013

Como faço para adicionar e mudar mensagens no componente DBNavigator - Mensagem no Cadastro / Exclusão / Edição
Marcos Loyola

Marcos Loyola

Curtidas 0

Respostas

Thiago Irrazabal

Thiago Irrazabal

10/11/2013

Bom dia, não sei se te entendi bem... enfim no evento OnClick do teu DBNavigator tu coloca esse código:

case Button of
    nbInsert: ShowMessage('Inserindo');
    nbEdit: ShowMessage('Editando');
    nbDelete: ShowMessage('Excluindo');
  end;





Att,
Thiago Irrazabal de Oliveira.
GOSTEI 0
Marcos Loyola

Marcos Loyola

10/11/2013

Amigão muito obrigado pela dica, é exatamente isso que queria,
valeu mesmo
GOSTEI 0
Thiago Irrazabal

Thiago Irrazabal

10/11/2013

Disponha, só para esclarecer para qual finalidade isso? Informar apenas? Se for o caso tu podes colocar caption nos botões do DBNavigator.



Att,
Thiago Irrazabal de Oliveira.
GOSTEI 0
Marcos Loyola

Marcos Loyola

10/11/2013

Como faço para colocar no CAPTION dos botões
é para fins de cadastro e exclusão mesmo
GOSTEI 0
Thiago Irrazabal

Thiago Irrazabal

10/11/2013

Boa tarde, primeiramente tu tem que criar uma classe herdada da classe do DBNavigator, porque os botões "Buttons" estão declarados em Protected então só a própria classe pode acessar ou classes herdadas.

TDBSetNavigator = class(TDBNavigator);


Depois criar uma procedure no private da tua unit ou public se preferir

procedure SetDBNavigator(Navigator: TDBNavigator);


Aperta CTRL + SHIFT + C para criar e substitui por isso

var
  Btn: TNavigateBtn;
begin
  for B := Low(TNavigateBtn) to High(TNavigateBtn) do
    begin
      with TDBSetNavigator(Navigator).Buttons[Btn] do
        begin
          case Index of
            nbInsert: Caption := 'Inserir';
            nbEdit: Caption := 'Alterar';
            nbDelete: Caption := 'Excluir';
          end;
        Layout := blGlyphLeft;
        end;
    end;
end;


Depois no OnShow do teu form tu passa o nome dos DBNavigators que tu quer que tenha caption.

SetDBNavigator(DBNavigator1);




Att,
Thiago Irrazabal de Oliveira.
GOSTEI 0
Ruan Menezes

Ruan Menezes

10/11/2013

Como faço para adicionar e mudar mensagens no componente DBNavigator - Mensagem no Cadastro / Exclusão / Edição


Ola Amigo!
Tabém tem uma maneira mas simples:

1 - Selecione o seu DBNavigator

2 - Vá até o Object Inspector

3 - Selecione a propriedade Hints

4 - Clique na reticencias ao lado

5 - Renomeie as mensagens conforme sua necessidade.

Espero que isto resolva seu problema...
GOSTEI 0
Thiago Irrazabal

Thiago Irrazabal

10/11/2013

Como faço para adicionar e mudar mensagens no componente DBNavigator - Mensagem no Cadastro / Exclusão / Edição


Ola Amigo!
Tabém tem uma maneira mas simples:

1 - Selecione o seu DBNavigator

2 - Vá até o Object Inspector

3 - Selecione a propriedade Hints

4 - Clique na reticencias ao lado

5 - Renomeie as mensagens conforme sua necessidade.

Espero que isto resolva seu problema...


Dessa maneira "simples" não funciona, porque os botões já tem seu Hint, e para alterá-los teria que fazer da maneira que eu mostrei logo acima, pois eles não herdam o hint do DBNavigator.
Adicionando 2 linhas de códigos a mais logo a seguir do layout funcionaria, segue o exemplo.

var
  Btn: TNavigateBtn;
begin
  for B := Low(TNavigateBtn) to High(TNavigateBtn) do
    begin
      with TDBSetNavigator(Navigator).Buttons[Btn] do
        begin
          case Index of
            nbInsert: Caption := 'Inserir';
            nbEdit: Caption := 'Alterar';
            nbDelete: Caption := 'Excluir';
          end;
        Layout := blGlyphLeft;
        Hint := Caption;
        ShowHint := True;
        end;
    end;
end;





Att,
Thiago Irrazabal de Oliveira.
GOSTEI 0
Járabe Emanuel

Járabe Emanuel

10/11/2013

porque vc não troca DBNavigator por Button e faz a manipulação dos Buttons de acordo a sua necessidade?
GOSTEI 0
POSTAR