El tema es así, tengo un componente heredado de TStringGrid y necesito llamar al método DrawCell pero de la clase TDrawGrid.
Tengamos en cuenta que la jerarquía es la siguiente
Código:
TDrawGrid = class(TCustomGrid)
protected
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState); override;
end;
TStringGrid = class(TDrawGrid)
protected
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState); override;
end;
TMiGrid = class(TStringGrid)
protected
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState); override;
end;
En la implementación del TMiGrid.DrawCell quiero llamar al método heredado pero no de TStringGrid, de TDrawGrid.
Vale aclarar que solucioné mi problema sin hacer esto, pero es que me quedó la duda
...
Chagracia!