解决方案 »
- [求助]关于ORACLE INSTALLCLIENT客户端 与应用程序数据库连接问题!
- 关于单击TOleContainer控件时的问题
- 请问Delphi操作Mysql数据库用ODBC好还是用dbexpress更好?参加讨论者均有分!
- 怎样关闭计算机,为什么我用ExitWindowsEx(EWX_SHUTDOWN,0)不行,系统是2000P
- 怎样修改窗体(或者Screen)的缺省光标??
- 如何保存当前窗口到bmp图片?重点:当前窗口比屏幕大!!!
- 高分求助文本倒入数据库,,急急急急!!
- 怎样让程序不在任务栏里显示
- 对话框跑到窗体后面去了,怎么回事?
- 有关于SQl_DMO.
- 如何在创建窗体后自动执行某例程
- 请问各位大侠所在的公司,上班时允许上网吗?
重写了 构建函数,
并在create时对 nameEx进行初始化,赋值为FNAMEEX
TDemoButton = class(TButton) property nameEx:string read FNameEx; 增加个 nameEx属性
constructor TDemoButton.create(Aowner:TComponent);
begin
inberiyed;
//初始化属性nameEx的值为FNameEx
FameEx:= FNameEx;
end;当这个控件 创建的时候 就初始化属性nameEx的值为FNameEx
// 继承自TButton类
TDemoButton = class(TButton)
private
// 属性,声明在private,只能在类内部使用,子类亦不可使用
FNameEx:string;
public
// 构造函数,类创建时执行的函数
constructor create(AOwner:TComponent);override;
published
// 发布的属性, 只读属性,读取私有变量FNameEx的值
property nameEx:string read FNameEx;
end;
constructor TDemoButton.create(Aowner:TComponent);
begin
inberiyed;
// 给FNameEx初始化就是给NameEx初始化,应该NameEx就是取的FNameEx的值
//初始化属性nameEx的值为FNameEx
FNameEx:= FNameEx;
end;
TDemoButton = class(TButton) // 从TButton继承
private
FNameEx:string; //定义一个变量
public
constructor create(AOwner:TComponent);override; //重载构造函数
published
property nameEx:string read FNameEx; //公布属性,只读
end;
constructor TDemoButton.create(Aowner:TComponent); //构造函数代码
begin
inberiyed; //这估计是你写错了吧,应该是inherited,执行父类的构造
//初始化属性nameEx的值为FNameEx
FNameEx:= FNameEx;
end;
Application:你的控件的父级是主程序,所以他的级别最高.
Self:你的控件的父级是当前窗口,他关闭你也关闭.
Sender:你的控件的父级是当前对象.
Handle:你的控件的父级是此句柄.
Nil:无定义.生成的独立窗体需代码释放。