Procédure sans parent

Version imprimable

:salut: Bonjour à tous

J'ai codifié ceci (le symbole //// représente des lignes de code sans problème)

Code:

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 :

Citation:

Ther is no method in an ancestor to be overridden

et je ne comprends pas pouquoi

07/03/2013, 15h19
tourlourou

Je ne vois pas dans l'aide en ligne des ancêtres invoqués TCustomDBGrid et TCustomGrid de procédure DrawColumnCell.

Je vois DrawCell ou DrawColumnText, par exemple.

Soit tu voulais dériver de l'une de celles-ci, soit c'est une nouvelle fonction, donc sans override.
07/03/2013, 16h23
JP.NUAGE

Tout à fait d'accord et pourtant, TDBGrid a bien une procedure DrawColumnCell. Il suffit de poser un DBGrid dans une forme pour voir le OndrawcolumnCell.
Au départ, j'avais codifié TDBGrid au lieu de TCustomDBGrid, mais pas mieux. C'est pour cela que je ne comprends pas. D'où vient le DrawColumnCell du DBGrid ?
J'ai même essayé de mettre un DrawColumCell dans TDBMagrille, mais comme tu le dis tourlourou, l'aide ne montre pas.

Pige pas ! On peut l'utiliser, mais cette procédure n'existe pas :mur:

C'est un gestionnaire d'événement associé au DrawCell qui permet d'effectuer une fonction (avec les paramètres adéquats) qu'on lui a passée chaque fois qu'il se déclenche :
Code:

1 2 3 4 5 6 7 8 9 TMyGrd.OnDrawCell := @MyOnDrawCell; // avec MyOnDrawCell du type attendu : type TDrawColumnCellEvent = procedure( Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState ) of object;

08/03/2013, 14h15
JP.NUAGE

Cela ne me rassure pas. Je patauge. Je ne vois pas comment je vais codifier pour que ma procédure prime !