动态生成窗体为何报错......

Question

Application.CreateForm(TForm2, Form2);
try
Form2.ShowModal();
finally
Form2.free;
Form2:=Nil;
end;
end;打开窗体正常...
但在关闭时form2时.
出现Poject data.exe raise exception class eInvalidPointer with message 
'invalid pointer operation', 

Answer 1

Application.CreateForm(TForm2, Form2);//原因就在这儿
try
Form2.ShowModal();
finally
Form2.free;
Form2:=Nil;
end;
end;
换成：
form2 := TForm2.create(nil)
try
  Form2.ShowModal();
finally
  FreeAndNil(Form2);
end;
原因是：Application.CreateForm创建的窗体，自动维护，无需人工释放

Answer 2

这样试试
form2 := tform2.create(self);