Bonjour à tous

Décidément, j'ai des surprises en passant de D7 à Lazarus.

J'ai un composant créé ainsi :

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
TMagrille : class(TDBGrids);
// ici ddes propriétés et des fonctions
.
.
.
TMaNouvelle_Grille : class(TMagrille);
  private
    { Déclarations privées }
    FAlternateColor : TColor;
    FSelectionColor : TColor;
    FSelection : TListInteger; 
    FClePrimaireInteger : TField;
    FCleSelection : TListInteger;
    FOnListeSelectionChange: TNotifyEvent;
  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;
    procedure ListeSelectionChange; dynamic;
et là, la procédure DrawColumnCell est refusée. Pourtant, il me semble que la Classe DBGrids à bien un évènement OnDrawColumnCell, alors j'ai du mal à comprendre pourquoi j'ai ce message :
Error: There is no method in an ancestor class to be overridden: "procedure DrawColumnCell(const RECT;LongInt;TColumn;TGridDrawState);"