Discussion :

[LaurentC33]

Bonjour,

Je ne sais pas trop si mon intutilé est "valable" mais bon
Je vais essayer d'être le plus clair possible :
Je créer une classe TFilterGrid qui, en s'appuyant sur le dataset d'un TDBAdvGrid, affiche un formulaire de filtrage du tableau.
Pour cela, l'utilisateur clique sur une colonne du tableau, et choisi une valeur.
Donc ma classe TFilterGrid contient une méthode :

Code :

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

1
2
 
procedure gridClickCell(Sender: TObject; ARow, ACol: Integer);

Cette méthode donc, je l'assigne au tableau dans le constructeur de ma classe TFilterGrid :

Code :

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

1
2
 
advGrid.OnClickCell := gridClickCell;

Problème : j’écrase tout autre méthode qui est affectée à l’événement OnClickCell du tableau.
Est ce que l'on peu éviter ça ? Laisser l’événement disponible en le dupliquant ou autre ?

J’espère ne pas être trop flou dans l'explication de mon problème...

[Rayek]

En utilisant Inherited au début de ta procédure dérivée.

Ex:

Code :

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

1
2
3
4
5
6
7
 
Procedure Click(Sender : TObject);
begin
  Inherited Click(Sender);
 
// Le code
end;