Código Delphi [-] procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin (* TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh); *) if Button = nbFirst then lo_que_sea; end;
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin (* TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh); *) if Button = nbFirst then lo_que_sea; end;