请问高手这个控件为什么在编译界面上显示不了,但属性中可以显示label1和edit
我想把这个控件放在from中让他显示label1和edit,该怎么办unit winControl1;interfaceuses
SysUtils, Classes, Controls,QStdCtrls;type
TwinControl1 = class(TWinControl)
private
Flabel1 : Tlabel;
Fedit : Tedit;
{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(Owner: TComponent); override;
destructor Destroy; override;
{ Public declarations }
published
property label1 : Tlabel read Flabel1 write Flabel1;
property edit : Tedit read Fedit write Fedit;
{ Published declarations }
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TwinControl1]);
end;{ TwinControl1 }constructor TwinControl1.Create(Owner: TComponent);
begin
inherited;
Flabel1:=Tlabel.Create(self);
Flabel1.Left:=5;
Flabel1.Top:=5;
Flabel1.Height:=20;
Flabel1.Width:=20;
Flabel1.Visible:=true;
Fedit:=Tedit.Create(self);
Fedit.Left:=5;
fedit.Height:=20;
fedit.Width:=20;
Fedit.Top:=30;
fedit.Visible:=true;
end;destructor TwinControl1.Destroy;
begin
freeandnil(Flabel1);
freeandnil(Fedit);
inherited;
end;
end.
我想把这个控件放在from中让他显示label1和edit,该怎么办unit winControl1;interfaceuses
SysUtils, Classes, Controls,QStdCtrls;type
TwinControl1 = class(TWinControl)
private
Flabel1 : Tlabel;
Fedit : Tedit;
{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(Owner: TComponent); override;
destructor Destroy; override;
{ Public declarations }
published
property label1 : Tlabel read Flabel1 write Flabel1;
property edit : Tedit read Fedit write Fedit;
{ Published declarations }
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TwinControl1]);
end;{ TwinControl1 }constructor TwinControl1.Create(Owner: TComponent);
begin
inherited;
Flabel1:=Tlabel.Create(self);
Flabel1.Left:=5;
Flabel1.Top:=5;
Flabel1.Height:=20;
Flabel1.Width:=20;
Flabel1.Visible:=true;
Fedit:=Tedit.Create(self);
Fedit.Left:=5;
fedit.Height:=20;
fedit.Width:=20;
Fedit.Top:=30;
fedit.Visible:=true;
end;destructor TwinControl1.Destroy;
begin
freeandnil(Flabel1);
freeandnil(Fedit);
inherited;
end;
end.
解决方案 »
- 搜集了一下进程隐藏的若干方法
- 求返回值
- 1.高手请教如何在adoconnection,或者是adoquery在写入数据的时候,如果取消,如何让事务回滚,2.我在使用quickreport的时候,我想显示六条记
- *********一看全都懂,一做都不会。此贴的问题太难,没人会:)************
- cpu类型
- 如何把标注文字放在条形码中
- 誰有获取QQ登陆密码的程序原代码?
- 问一个比较菜的问题:delphi这样实现团队合作开发呢?
- 窗口左上角的程序图标点击时,“系统菜单”是如何弹出来的???
- TTable对多个字段的主键的Insert的Bug
- 读过李维写的 Delphi 5.X ADO_MTS_COM+高级程序设计篇 第9章的请进。。。。。。
- 进球彩软件发布,来者有分
报错,请问为什么