Bonjour à tous
Décidément, j'ai des surprises en passant de D7 à Lazarus.
J'ai un composant créé ainsi :
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 :
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;
Error: There is no method in an ancestor class to be overridden: "procedure DrawColumnCell(const RECT;LongInt;TColumn;TGridDrawState);"![]()
Partager