Discussion :

[cgone]

Bonjour,

J'utilise un TIBDataSet, TDBGrid et un TDBNavigator et quand je clique sur le bouton supprimer du TDBNavigator, il apparait un message de confirmation. Comment puis-je changer le contenu de ce message ?

De plus, que l'option dgConfirmDelete du TDBGrid soit à True ou False, le message apparait tout le temps quand j'utilise CTRL+SUPP pour supprimer la ligne.

Cyril.

[Cl@udius]

Salut

J'utilise un TIBDataSet, TDBGrid et un TDBNavigator et quand je clique sur le bouton supprimer du TDBNavigator, il apparait un message de confirmation. Comment puis-je changer le contenu de ce message ?

Pour le DBGrid tu bascules l'option dgConfirmDelete à False.
Pour le DBNavigator tu bascules également la propriété ConfirmDelete à False.
Et enfin au niveau du IBDataSet tu implémente l'évènement BeforeDelete.

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.IBDataSet1BeforeDelete(DataSet: TDataSet);
begin
  if MessageDlg('Question: Ton Message ?',
                mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
    Abort;
end;

De plus, que l'option dgConfirmDelete du TDBGrid soit à True ou False, le message apparait tout le temps quand j'utilise CTRL+SUPP pour supprimer la ligne.

Tu es sûr de ça ?

@+ Claudius

[cgone]

Salut,

Tu es sûr de ça ?

Ben euh... non...

Je devais être fatigué hier...

Merci,

Cyril