Admin Fondateur
Nombre de messages : 197 Age : 40 Localisation : Tlemcen ( Algérie ) Date d'inscription : 04/12/2006
| Sujet: détecter quelle bouton d'un DBNavigator a été enfoncé Mer 14 Fév - 3:10 | |
| Une solution simple est d'utiliser l'évènement OnClick du TDBNavigator : - Code:
-
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var BtnName: string; begin case Button of nbFirst : BtnName := 'nbFirst'; nbPrior : BtnName := 'nbPrior'; nbNext : BtnName := 'nbNext'; nbLast : BtnName := 'nbLast'; nbInsert : BtnName := 'nbInsert'; nbDelete : BtnName := 'nbDelete'; nbEdit : BtnName := 'nbEdit'; nbPost : BtnName := 'nbPost'; nbCancel : BtnName := 'nbCancel'; nbRefresh: BtnName := 'nbRefresh'; end; MessageDlg('Le bouton ' + BtnName + ' a été cliqué.', mtInformation, [mbOK], 0);
end; | |
|