Discussion :

[Invité]

Bonjour,

j'ai une chaine ZConnection-Zquery+ZUpdateSQL-DataSource-dbGrid avec un dbNavigator...

J'aimerais savoir comment on annule une opération sélectionnée dans le dbNavigator... Exemple, j'appuie sur le [-] pour supprimer un enregistrement. Je vérifie une condition et si cette dernière n'est pas remplie, je souhaite que l'opération de suppression soit abandonnée.

J'ai essayé un abort dans la procedure TForm1.ZUpdateSQL1BeforeDeleteSQL(Sender: TObject);... cela empêche en effet la suppression mais cela génère un message d'erreur.

Cordialement. Gilles

[Invité]

... Avec Abort cela se joue au niveau de l'évènement BeforeAction du DBNavigator

Code :

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

1
2
3
4
5
6
7
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TDBNavButtonType);
begin
  {TDBNavButtonType = (nbFirst, nbPrior, nbNext, nbLast,
                  nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh); }
  if Button = nbDelete then Abort;
end;

J'ai retrouvé un "vieux" Post de Chris.

Cordialement. Gilles