Bonjour à tous,

Comment puis-je ajouter l'évènement "DblClick" à une classe qui ne dérive pas de la classe Tcontrol? donc je ne peux pas surcharger cette méthode puisqu'elle n'existe pas dans la la classe ascendante!!

J'ai essayé ce code, mais il ne fonctionne pas!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
MaClasse= class(Tobject)
  private
     fOnDblClick: TNotifyEvent;
  protected
     procedure DblClick;
  published
     property OnDblClick: TNotifyEvent read fOnDblClick write fOnDblClick;
  end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
implementation
{$R *.dfm}
 
Procedure MaClasse.DblClick;
begin
  //......
end;
Merci d'avance