tedit继承组件的问题

cyy201 2014-02-25 11:44:20

type
TEditEx = class(TEdit)
private
m_Ver:string;

protected
public
constructor Create(Owner: TComponent); overload; virtual;
property MyVer:string read m_Ver;
published
end;



constructor TEditEx.Create(Owner: TComponent);
begin
inherited Create(Owner); // 初始化继承下来的部分

Text:='test';
m_Ver:='1.0';
end;


在代码动态创建是可以,但是把组件拖到界面上就没有效果了,请问这是怎么回事?
...全文
145 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
林石公 2014-02-26
  • 打赏
  • 举报
回复
不知道你说的效果是什么意思
lhy 2014-02-26
  • 打赏
  • 举报
回复
引用 3 楼 cyy201 的回复:
[quote=引用 2 楼 lhylhy 的回复:] 要做继承控件从TCustomEdit继承更好。
试过从TCustomEdit继承,但是一样不行[/quote] 继承完还要处理好多事情。
cplm88 2014-02-26
  • 打赏
  • 举报
回复
constructor Create(Owner: TComponent); overload; virtual; //改成 constructor Create(Owner: TComponent); override;
蓝色光芒 2014-02-26
  • 打赏
  • 举报
回复

constructor Create(Owner: TComponent); overload; virtual;
//改成
constructor Create(Owner: TComponent); override;
cyy201 2014-02-26
  • 打赏
  • 举报
回复
引用 1 楼 sololie 的回复:
没有什么效果
只是个简单的测试,因为测试不行所以就没写完整
cyy201 2014-02-26
  • 打赏
  • 举报
回复
引用 2 楼 lhylhy 的回复:
要做继承控件从TCustomEdit继承更好。
试过从TCustomEdit继承,但是一样不行
sololie 2014-02-25
  • 打赏
  • 举报
回复
没有什么效果
lhy 2014-02-25
  • 打赏
  • 举报
回复
要做继承控件从TCustomEdit继承更好。

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧