可以从TForm继承来做组件吗?

HopeRemains 2003-10-09 08:15:28
就像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.

{************************************************************************}
可以吗?
...全文
29 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
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为什么不提供.)

谢谢大家.
huojiehai 2003-10-09
  • 打赏
  • 举报
回复
哦,不用安装的,你uses 你的单元再试试
huojiehai 2003-10-09
  • 打赏
  • 举报
回复
你要安装你的新组件才行呀

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.
huojiehai 2003-10-09
  • 打赏
  • 举报
回复
找不到你输入就是了
HopeRemains 2003-10-09
  • 打赏
  • 举报
回复
To pazee:
为什么在[Component]-[New component]->Ancestor Type: 中不能找以TForm呢?
耙子 2003-10-09
  • 打赏
  • 举报
回复
可以!

5,928

社区成员

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

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