急求防止MDI子窗体重复打开的最佳方法！ 关于try ...finally...end 的用法
我搜了好多帖子, 最方便的就是：

if Not assigned(frmChild) then
frmChild:=TfrmChild.create(Self);
try
frmChild.Show;
finally
frmChild.free;
frmChild:=Nil;
end;

现在的问题是：窗体一闪而过，为什么在show的时候，不等我去关闭，就直接执行finally后的语句呢?


[解决办法]
这种方式要用ShowModal，不过这一般不用在MDI里。
try
frmChild.ShowModal;
finally
frmChild.free;
frmChild:=Nil;
end;

你可以用下在的方式
if Not assigned(frmChild) then
frmChild:=TfrmChild.create(Self);
frmChild.Show;

在以下两个事件中写上如下代码
procedure TfrmChild.FormDestroy(Sender: TObject);
begin
frmChild:=nil;
end;

procedure TfrmChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=CaFree;
end;