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

[HopeRemains]

就像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.

{************************************************************************}
可以吗?

[耙子]

可以！

[HopeRemains]

To pazee:
为什么在[Component]-[New component]->Ancestor Type: 中不能找以TForm呢?

[huojiehai]

找不到你输入就是了

[HopeRemains]

To luojiehai:
可以编译通过.
我在我新的工程中use了这个单元,可以我在程序动态创建时
testForm:=TFormEx.Create(nil);

执行时有错误提示:
Resource TFormEx not found.

[aiirii]

可以的, 我们开发中, 界面部分, 也做了个 baseform ,将一些重复的控件与代码写进去, 然后继承下来!!简化开发

[ggdw]

同意

[huojiehai]

你要安装你的新组件才行呀

Component-> install component...

[huojiehai]

哦，不用安装的，你uses 你的单元再试试

[HopeRemains]

这就是组件源代码,我什么都没有加的:
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为什么不提供.)

谢谢大家.

[tonylk]

需要为这个form提供一个dfm文件，并用{$R *.dfm}加入到pas文件中，不然会警告说资源未找到。

[HopeRemains]

tonylk(tony) ,是对的.
我在大富翁找到了.