又一个问题

Question

我在form2中引用了unit1(TForm1),
定义frm1=Tform1.create;
然后frm1.show,
Tform1上有个"退出"按钮cmdExit
在unit1里定义
procedure Tform1.cmdExitClick()
begin 
form1.close;//报错
end;然而在unit2中frm1.show后，按"退出"按钮，执行时form1.close报错，各位帮助解决一下。

Answer 1

因为你创建的是frm1，form1并没有创建，改为：
procedure Tform1.cmdExitClick()
begin 
  close;  // 这样就可以了
end;

Answer 2

if Assign(form1) then
  form1.close;
if Assign(frm1) then
  frm1.close;

Answer 3

to sysu(死树）：
 老兄，你的方法行不通

Answer 4

frm1=Tform1.create;
frm1.show;修改为：frm1=Tform1.create(self);
frm1.show;