如何隐藏父类的属性

whitehare 2003-06-14 01:35:01
我从TWinControl继承[这样做是为了能转换成ActiveX控件],但我想把一些可视的属性隐藏和事件起来,并且能在内部指定这些属性的值。
...全文
163 19 打赏 收藏 举报
写回复
19 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
whitehare 2003-06-16
秘密一旦公开,就像丑闻一旦公开,但我们还是可以有办法把他弯曲了
  • 打赏
  • 举报
回复
whitehare 2003-06-16
火了,什么是秘密啊。理论上的东西大家都知道阿,哪有什么秘密,说得那么神秘,什么“秘密一旦公开就不是秘密”。
阿琪的方法却是可行的,
从下面开始,唱反调,不提供方法的一律不给分
  • 打赏
  • 举报
回复
FrameSniper 2003-06-16
各位,先别这么快下定论吗?

阿琪的方法是什么意思,哪位跟俺说说!!!!!!!!
  • 打赏
  • 举报
回复
whitehare 2003-06-16
怎么没人再发表高见了
  • 打赏
  • 举报
回复
李_军 2003-06-15
同意: qxj(小小小小小小程序员&郁闷中)

秘密一旦公开就不是秘密。

不能降低可见性的等级
  • 打赏
  • 举报
回复
whitehare 2003-06-15
“秘密一旦公开就不是秘密。”呵呵,什么意思。
那时理论上,但我门确实有办法把父类的属性隐含起来,就象阿琪的做法,但在应用当中,我发现这样做不太安全,因为有些这样做把属性改变了。这些属性已经不具备写入能力。所以如果是设计期要用到的,还是不能这么做。例如top,left,width,height等。
  • 打赏
  • 举报
回复
whitehare 2003-06-14
继续
  • 打赏
  • 举报
回复
BobLeeCn 2003-06-14
支持qxj(小小小小小小程序员&郁闷中)的说法。
  • 打赏
  • 举报
回复
microjuz 2003-06-14
keke
我是路过的人..
  • 打赏
  • 举报
回复
同意: qxj(小小小小小小程序员&郁闷中)

秘密一旦公开就不是秘密。

不能降低可见性的等级
  • 打赏
  • 举报
回复
qxj 2003-06-14
子类的属性不能降低父类的该属性的可见性的,以前看到过这样一句话
"秘密一旦公开了,就是不是秘密了

-------------------------------------------------
在错的时间遇见错的人 是一种伤痛 
在错的时间遇见对的人 是一种遗憾 
在对的时间遇见错的人 是一种心伤 
只有在对的时间遇见对的人才是一种幸福
  • 打赏
  • 举报
回复
citytramper 2003-06-14
function TMedit.GetText: string;
begin
result:=inherited Text;
end;

procedure TMedit.SetText(const Value: string);
begin
inherited text:=Value;
end;
  • 打赏
  • 举报
回复
citytramper 2003-06-14
你看这样可不可以
TMedit = class(TCustomEdit)
private
function GetText: string;
procedure SetText(const Value: string);
published
property Text:string read GetText;
end;

内部改用setText
  • 打赏
  • 举报
回复
FrameSniper 2003-06-14
QXJ的意思就是说,如果一个类A派生于另外一个类B,那么类B不可能降低从类A继承来的属性的可见性,例如,如果类B中有一个Public的属性C,那么当类A从类B派生而继承这个属性C的时候,那么C的可见性只可能是Public,因为属性C的可见性是最高的Public,而不能降低到Private或Protected....楼主,你明白了吗?

蜗牛的说法简直不着边,呵呵....得罪了....

阿琪的方法俺有点不明白,阿琪,能给俺说说为什么这样可以隐藏掉父类的属性吗....?
  • 打赏
  • 举报
回复
whitehare 2003-06-14
难道 citytramper(阿琪) 的是最佳答案吗?
  • 打赏
  • 举报
回复
FrameSniper 2003-06-14
继续关注....
  • 打赏
  • 举报
回复
whitetiger8 2003-06-14
继承组件呗。可以把你不想让别人看到的,设为PROVATE,局部变量就行啦。
  • 打赏
  • 举报
回复
whitehare 2003-06-14
citytramper(阿琪) 的方法行得通,
whitetiger8(蜗牛[我要一步一步往上爬]) 的不行;
qxj(小小小小小小程序员&郁闷中) 不知道你想说明什么。
  • 打赏
  • 举报
回复
whitehare 2003-06-14
来人那
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

5091

社区成员

Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
申请成为版主
帖子事件
创建了帖子
2003-06-14 01:35
社区公告
暂无公告