从已有的控件继承编写控件时，如何才能屏蔽父类已经Published了的属性呢？。。。。。

littlefat 2004-05-11 03:58:56

我因为自己的需要编写了一个自定义的控件，从dxDBGrid（DevExpress公司的著名Grid控件）继承，其中封装了一个控件内部使用的DataSource和ADOStoredProc，并且在控件的Create中已经设定了ADOStoredProc->DataSource->dxDBGrid的数据连接关系，所以dxDBGrid的DataSource属性应该屏蔽掉（不出现在设计时期的Object Inspector中），但我不知道如何才能屏蔽！
部分代码如下（略去了不相干的函数和过程）：

type
TListMode=(lmtop,lmQuickSearch,lmQuery,lmAll); //列出模式

TEndxDBGrid = class(TdxDBGrid)//从dxDBGrid继承
private
{ Private declarations }
FADOSP:TADOStoredProc;
FDataSource:TDataSource;
FInited:Boolean;
FProcName:String;

FLastErrorMsg: String;

procedure CursorBuzy;
procedure RestoreCursor;
procedure SetFProcName(const Value: String);

protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;

published
{ Published declarations }
property ADOStoredProc:TADOStoredProc read FADOSP; //发布ADOStoedProc成一个属性
end;

procedure Register;

implementation

{ TEndxDBGrid }

constructor TEndxDBGrid.Create(AOwner: TComponent);
begin
inherited;

FDataSource:=TDataSource.Create(nil);//创建控件内部使用的DataSource
FADOSP:=TADOStoredProc.Create(Self); //创建控件内部使用的ADOStoreProc
FADOSP.Name:=Self.Name+'ADOSP'; //ADOStoedProc的名字

FDataSource.DataSet:=FADOSP; //建立连接关系
Self.DataSource:=FDataSource;

FInited:=False;
end;

destructor TEndxDBGrid.Destroy;
begin
FADOSP.Close;
FADOSP.Free;
FDataSource.Free;

inherited;
end;

...全文

93 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

littlefat 2004-05-13

打赏
举报

唉，不行就算了。。。

不过，怎么给分啊？我怎么找不到给分的地方？

lxpbuaa 2004-05-13

打赏
举报

姑且不论设计的问题。不过搂住提出的问题还是可以解决的。要想屏蔽（不显示）published属性，不那么简单。不过将它改为对外部来说只读就可以了：

type
TEndxDBGrid = class(TdxDBGrid)
FDataSource: TDataSource;
public
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
published
property DataSource: TDataSource read FDataSource;
end;

implementation

constructor TEndxDBGrid.Create(AOwner: TComponent);
begin
inherited;
FDataSource := TDataSource.Create(nil);
FDataSource.Name := 'InnerDataSource';
inherited DataSource := FDataSource;
end;

destructor TEndxDBGrid.Destroy;
begin
FDataSource.Free;
inherited;
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————