[1.6.4] Erreur "There is no method in an ancestor class to be overridden" dans un composant

Bonjour à toutes et à tous,

Il y a quelques années, j'avais développé un composant "TDateur" à partir d'un TEditButton. En cliquant sur le bouton, cela ouvrait une fenêtre sur un calendrier dans lequel un click permettait de choisir une date.

J'essaie aujourd'hui de le recompiler avec la version Lazarus 1.6.4 et cela ne fonctionne plus (voir le project1.exe dans le répertoire "Test" Pièce jointe 511794).

sur cette procédure de l'unité "Dateur.pas" :

Code:

---

procedure DoButtonClick(Sender: TObject); override;

---

j'ai l'erreur suivante :

Code:

---

Dateur.pas(23,15) Error: There is no method in an ancestor class to be overridden: "DoButtonClick(TObject);"

---

Ce qui semble vrai, je ne trouve pas une telle méthode. Pour autant, cela a fonctionné. Qu'est-ce qui a changé ?

Cela fait très longtemps que je n'ai pas joué avec les composants. Auriez-vous l'obligeance de bien vouloir corriger cette erreur ou bien de me dire précisément comment faire.

Je vous en remercie par avance.

Cordialement.

Pierre

Bon, j'ai trouvé la réponse.

Code:

---

procedure DoButtonClick(Sender: TObject); override;

---

N'ayant pas d’ancêtre, il faut supprimer le "override".

Par contre, il faut créer un descendant de la propriété "OnButtonClick" et la relier, dans la procédure "Create", à ma procédure DoButtonClick par :

Code:

---

OnButtonClick:= @DoButtonClick;

---

et là, ça refonctionne.

Je ne me souviens plus à quel version ce que j'avais écrit fonctionnait, mais cela fonctionnait.

Cordialement.

Pierre