I
ibmdeskstar
Unregistered / Unconfirmed
GUEST, unregistred user!
因为需要一些特殊的功能,所以要写一个控件,是StringGrid的子类
Unit MyComponent;
interface
uses ...
type
TMyStringGrid = class(TStringGrid)
private
procedure DrawCell(Sender:TObject;Acol,ARow:Integer;Rect:TRect;State:TGridDrawState);override;
public
constructor Create(AWoner:TComponent);override;
end;
....
end;
安装控件的时候告知因为TStringGrid里边的DrawCell被定义为private的过程,所以不能override,
可是我确实需要重写这个子类的DrawCell代码,如何做到?谢谢
Unit MyComponent;
interface
uses ...
type
TMyStringGrid = class(TStringGrid)
private
procedure DrawCell(Sender:TObject;Acol,ARow:Integer;Rect:TRect;State:TGridDrawState);override;
public
constructor Create(AWoner:TComponent);override;
end;
....
end;
安装控件的时候告知因为TStringGrid里边的DrawCell被定义为private的过程,所以不能override,
可是我确实需要重写这个子类的DrawCell代码,如何做到?谢谢