Question

delphi 中我想创建form1 然后用按钮来动态创建窗口 if form2=nil then form2:=tform2.create(self) ;

为什么出错阿是不是没有导入form2包阿，把tform2改成tform就可以，回自己创建一个窗口。菜鸟求解释阿

Answer 1

form2:=tform2.create(self)
这里form2是个实例名，而tform2是个类名，说明tform2这个类不存在或者包含tform2这个类的单元文件没有引用；
而tform这个类在Forms单元中，系统默认添加的；你可以手动把
interface
uses
......Forms, ......;
这里的Forms,引用去了看看 会报跟你之前一样的错误

追问

我已经手动添加了unit2 和 .dfm文件 但在form2中关闭程序的时候报内存错误，是不是关闭代码写的不对阿，我用form1.free和form2.free在form2按钮里写的。

追答

一般情况下报内存错误，是由于你访问了不存在的对象实例，好比说有在某一个地方已经销毁（调用的类的析构函数），而你有又这个对象实例；根据你简单的描述估计是你的form1已经不存在了，而你在form2的按钮事件里又去调用form1.free，这样肯定会报错
你可以这样写if Assigned(form1) then form1.free;

Answer 2

tform 是一个form类 可以直接用 而tform2 tform1 这些不能直接使用 如果你要用的话 需要现在头部声明 例如：
type
tform2 = class(tform)
end;

然后你下面才能新建
var form2: tform2;
begin
form2:=tform2.create(self) ;
end;

追问

type 里面不可以声明多个类 啊

追答

可以的 声明在下面就好了
type
tform1 = class(tform)
end; //end标志该类的声明结束

tform2 = class(tform) //其他类可以跟着继续声明，并用end结束
end;