Discussion :

[Chonchon]

Bonjour

Comment peut on récupérer l'acrion d'un bouton du navigator.
par exemple pour gerer le compteur d'enregistrement.

Merci
A+

[nomdutilisateur]

bonjour
je commence juste avec les BD mais il me semble que l'évènement onclick devrait te convenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure TForm3.DBNavigatorClick(Sender: TObject; Button: TNavigateBtn);

button te donne toutes les indications

Premier nbFirst Va au premier enregistrement
Précédent nbPrior Va à l'enregistrement précédent
Suivant nbNext Va à l'enregistrement suivant
Dernier nbLast Va au dernier enregistrement
Insérer nbInsert Insère un enregistrement vide
Supprimer nbDelete Supprime l'enregistrement actuel
Edition nbEdit Permet aux utilisateurs de modifier l'enregistrement en cours
Valider nbPost Transmet l'enregistrement en cours
Annuler nbCancel Abandonne la modification en cours
Actualiser nbRefresh Rafraîchit les données de l'ensemble de données

[Chonchon]

salut
ok je suis d'accord pour l'événement mais comment utilser
le code pour savoir si le boutton est nbfirst, nbprior etc...

merci A+

[serge-07]

salut
Case button of :

extrait de l'aide delphi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Le code suivant détermine le bouton du navigateur base de données qui a été cliqué et affiche un message identifiant le nom du bouton.
 
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;

[Chonchon]

RE

Ok merci çà marche impeccable
A charge de revanche
Bon développement et A+