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" :
j'ai l'erreur suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part procedure DoButtonClick(Sender: TObject); override;
Ce qui semble vrai, je ne trouve pas une telle méthode. Pour autant, cela a fonctionné. Qu'est-ce qui a changé ?
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);"
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
Partager