Bonsoir,
Le code donné ne peut pas fonctionner pour plusieurs raisons :
* OnDblClick est définie selon un modèle et on ne peut par conséquent que lui affecter une procédure d'un modèle identique. Ce modèle est le plus courant, à savoir TNotifyEvent : TNotifyEvent = procedure(Sender: TObject) of object;
* l'affectation d'une procédure à une autre utilise (contrairement à Delphi) le @ : PremiereProc := @SecondeProc.
En fait, pour régler le problème, je te suggère :
* de placer les données dont vous avez besoin dans un emplacement publique (partie public de la fiche par exemple) ;
* de créer une procédure liste_entreprise à allouer dynamiquement dont le modèle soit du type TNotifyEvent ;
* de traiter les données de l'enregistrement dans cette procédure : c'est elle qui ira chercher les deux données dont elle a besoin ;
* d'affecter cette procédure au gestionnaire d'événement OnDblClick lors de la création de la fiche : les données voulues seront alors traitées
A bientôt,
Gilles
Partager