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

Question

就像TBitBtn这样:
{************************************************************************}
unit BitBtnEx;interfaceuses
  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;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TBitBtnEx]);
end;end.{************************************************************************}
可以吗?

Answer 1

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

Answer 2

To luojiehai:
  可以编译通过.
  我在我新的工程中use了这个单元,可以我在程序动态创建时
  testForm:=TFormEx.Create(nil); 
 
  执行时有错误提示:
  Resource TFormEx not found.

Answer 3

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

Answer 4

你要安装你的新组件才行呀Component-> install component...

Answer 5

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

Answer 6

这就是组件源代码,我什么都没有加的:
unit CustomFormEx;interfaceuses
  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;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TCustomFormEx]);
end;end.可是不行?
(我不明白:[Component]-[New component]->Ancestor Type: 中不能找以TForm呢.Delphi为什么不提供.)谢谢大家.

Answer 7

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

Answer 8

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