奇怪的事情：窗口居然死了………………

Question

在我的MainForm中的button1的onclick事件中有如下代码：（已经引用了ChildForm）  
procedure  TMainForm.Button1Click(Sender:  TObject);  
begin  
   ChildForm.ChildMainShow(Self);  
end;  
 
{在ChildForm中有如下方法：}  
……  
var  frm:TChildForm;  
……  
procedure  ChildMainShow(AOwner:TComponent);  
begin  
       frm:=TChildForm.Create(AOwner);  
       frm.ShowModal;  
       frm.Free;  
end;  
 
但运行的结果令人费解：在MainForm上ChildForm能正常创建，但是鼠标在上面点击时无法响应，连ChildForm的关闭、最小化、最大化都不起作用，为什么？应该如何处理?

Answer 1

frm.Free;
你这而还没用 怎么就释放了
try
....
finally
frm.free;

Answer 2

try
SHOWMODAL
finally
frm.free;

Answer 3

childform 那里可以 ShowModal 不出问题才怪！