Bonjour à tous

J'ai codifié ceci (le symbole //// représente des lignes de code sans problème)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
   TDBMaGrile = class(TCustomDBGrid)
   private
   { Déclarations privées }
      ////
      ////
      procedure /////;
   protected
   { Déclarations protégées }
   public
   { Déclarations publiques }
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
   published
   { Déclarations publiées }
end;
 
type
  TDBGridMaGrid = class(TDBMaGrille)
  private
    { Déclarations privées }
    FClePrimaireInteger : TField;
  protected
    { Déclarations protégées }
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
      Column: TColumn; State: TGridDrawState); override;
Il y a du code après bien sûr, mais mon proiblème est sur le DrawColumnCell. Blocage à la compilation :
Ther is no method in an ancestor to be overridden
et je ne comprends pas pouquoi