TForm能作为基类吗，为什么会出错？ ( 积分: 20 )

//定义一个类
Txy = class(TCustomForm)
end;
//实现
var x : Txy
x := Txy.create(nil);
上面这句出错
如果用TControl 作基类没问题

//定义一个类
Txy = class(TCustomForm)
end;
//实现
var x : Txy
x := Txy.create(nil);
上面这句出错
如果用TControl 作基类没问题

是不是提示 Resource Txy not found
也就是说资源没有找到，因为窗体都要对应窗体文件*.dfm的，不能直接凭空实例化一个不存在窗体文件的窗体。
你可以这样做
原来的窗体：
type
TForm1=class(TForm)
……
end;

改为
type
TXY=class(TCustomForm)
//这里加上你想增加的内容
end;

TForm1=class(TXY)
……
end;

然后就可以用
var Form1:TForm1;
begin
Form1:=TForm1.Create(nil);
end;

非常感谢，说得很有道理。接受你的回答，再次谢谢！！