Fórum Como posso usar os eventos do DBNavigator ? #266948

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;