5,386
社区成员
发帖
与我相关
我的任务
分享可以从TForm继承来做组件吗?
就像TBitBtn这样:
{************************************************************************}
unit BitBtnEx;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Buttons;
type
TBitBtnEx = class(TBitBtn)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TBitBtnEx]);
end;
end.
{************************************************************************}
可以吗?
{************************************************************************}
unit BitBtnEx;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Buttons;
type
TBitBtnEx = class(TBitBtn)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TBitBtnEx]);
end;
end.
{************************************************************************}
可以吗?
...全文
请发表友善的回复…
发表回复
HopeRemains 2003-10-10
- 打赏
- 举报
tonylk(tony) ,是对的.
我在大富翁找到了.
我在大富翁找到了.
tonylk 2003-10-09
- 打赏
- 举报
需要为这个form提供一个dfm文件，并用{$R *.dfm}加入到pas文件中，不然会警告说资源未找到。
HopeRemains 2003-10-09
- 打赏
- 举报
这就是组件源代码,我什么都没有加的:
unit CustomFormEx;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms;
type
TCustomFormEx = class(TForm)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TCustomFormEx]);
end;
end.
可是不行?
(我不明白:[Component]-[New component]->Ancestor Type: 中不能找以TForm呢.Delphi为什么不提供.)
谢谢大家.
unit CustomFormEx;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms;
type
TCustomFormEx = class(TForm)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TCustomFormEx]);
end;
end.
可是不行?
(我不明白:[Component]-[New component]->Ancestor Type: 中不能找以TForm呢.Delphi为什么不提供.)
谢谢大家.
huojiehai 2003-10-09
- 打赏
- 举报
哦，不用安装的，你uses 你的单元再试试
huojiehai 2003-10-09
- 打赏
- 举报
你要安装你的新组件才行呀
Component-> install component...
Component-> install component...
ggdw 2003-10-09
- 打赏
- 举报
同意
aiirii 2003-10-09
- 打赏
- 举报
可以的, 我们开发中, 界面部分, 也做了个 baseform ,将一些重复的控件与代码写进去, 然后继承下来!!简化开发
HopeRemains 2003-10-09
- 打赏
- 举报
To luojiehai:
可以编译通过.
我在我新的工程中use了这个单元,可以我在程序动态创建时
testForm:=TFormEx.Create(nil);
执行时有错误提示:
Resource TFormEx not found.
可以编译通过.
我在我新的工程中use了这个单元,可以我在程序动态创建时
testForm:=TFormEx.Create(nil);
执行时有错误提示:
Resource TFormEx not found.
huojiehai 2003-10-09
- 打赏
- 举报
找不到你输入就是了
HopeRemains 2003-10-09
- 打赏
- 举报
To pazee:
为什么在[Component]-[New component]->Ancestor Type: 中不能找以TForm呢?
为什么在[Component]-[New component]->Ancestor Type: 中不能找以TForm呢?
耙子 2003-10-09
- 打赏
- 举报
可以！
