override en method
jeg vil gerne have gjort en protected method i delphi til public, uden at ændre i hvad metoden gør.Det drejer sig om methoden DrawCell i componenten TStringGrid. Denne er erklæret protected i delphi, men jeg skal bruge deni de fra mit program. Jeg har lavet følgende, som ikke fungerer:
unit OwnStringGrid;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids;
type
TOwnStringGrid = class(TStringGrid)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState);override;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Additional', [TOwnStringGrid]);
end;
procedure TOwnStringGrid.DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState);
begin
end;
end.
jeg har installeret ovenstående component, men da procedure TOwnStringGrid.DrawCell er tom sker der ikke spor, når jeg kalder DrawCell.
Det jeg vil er at kalde Delphis egen Drawcell fra mit eget program af...
