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" Calendrier.zip).

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
    procedure DoButtonClick(Sender: TObject); override;
j'ai l'erreur suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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