TMyStringGrid = class(TStringGridEh) private public function GoPrior:boolean; function GoNext:boolean; function GoFirst:boolean; function GoLast:boolean; function GoToRow(RowIndex:integer):boolean; protected published property GridColor; property MyColumns; constructor Create(AOwner: TComponent);override; destructor Destroy; override; end;
我看过啦!他是从头开始写的(或许是复制/添加)啊
我复制一份DBGrid的源码;然后在TColumn类里加一个属性
注册一下也行!但是,我不想这样做!
我是想从TDBGrid上继承写一个控件
同时也从TColumn继承在里面添加属性
然后打开Column会我一个是我新加的属性
private public
function GoPrior:boolean;
function GoNext:boolean;
function GoFirst:boolean;
function GoLast:boolean;
function GoToRow(RowIndex:integer):boolean;
protected published
property GridColor;
property MyColumns;
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
end;
DBGrid的Columns属性是TColumn类的对象,你必须在TColumn中添加:
TColumns = class(TColumn)
private
......
FmyProperty: Boolean;
published
......
property myProperty: Boolean read FmyProperty write FmyProperty default false;
end;