Como posso usar os eventos do DBNavigator ?

Delphi

01/02/2005

Bom dia ao pessoal do forum, estou querendo usar os eventos onclik do DBNavigator, por exemplo seu clicar no de Adicionar , excluir eu saber com botao do navigator foi clicado e partir disto chamar a funcao necessaria ?


Walter Faria

Walter Faria

Curtidas 0

Melhor post

Rômulo Barros

Rômulo Barros

01/02/2005

Vc poderá utilizar a variável [b:1dbcaaef7b]Button[/b:1dbcaaef7b] do evento [b:1dbcaaef7b]OnClick[/b:1dbcaaef7b] do [b:1dbcaaef7b]DbNavigator[/b:1dbcaaef7b] e implementar o código abaixo:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
   Case Button Of
      nbFirst    :  ShowMessage(´Primeiro Registro´);
      nbPrior    :  ShowMessage(´Registro Anterior´);
      nbNext     :  ShowMessage(´Registro Posterior´);
      nbLast     :  ShowMessage(´Último   Registro´);
      nbInsert   :  ShowMessage(´Inserindo´);
      nbDelete   :  ShowMessage(´Deletando´);
      nbEdit     :  ShowMessage(´Editando´);
      nbPost     :  ShowMessage(´Gravando´);
      nbCancel   :  ShowMessage(´Cancelando´);
      nbRefresh  :  ShowMessage(´Atualizando´);
   End;
end;



GOSTEI 1

Mais Respostas

Martins

Martins

01/02/2005

Ao invés disso, não seria mais prático vc monta seu próprio DBNavigator?

vc poderia fazer isso.


GOSTEI 0
POSTAR