关于MDI窗口的子窗口关闭代码通用化问题

 

 

转自：http://hi.baidu.com/chinamis/blog/item/b52b242440c9d23ac995596b.html

 

在form 关闭后 ，窗口变量的指针变没有指向NIL，而是指向一个无效的地址，对于SDI 窗口来说，这不存在问题，但是对于 MDIChild ,则问题多多。

    一般来说，我们应该只需要在 close 事件中写上

Action := CaFree;

就可以解决问题，但是在mdichild 中，写上这行代码等于没有写。

如果有一个窗口为form 2 ,哪么关闭的时候要这样写才能让from2 指向NIL

方法一、

from2.free;

form2:=nil;

方法二、

freeandnil(form2);

上面的代码不存在问题，哪什么地方来的问题？

如果我们想把代码通用化，哪么，FREE 操作完成以后，你就无法让变量再指向nil

相关的通用化变量的使用，都是用指针来完成了，问题就出在这儿，指针只能操作他所指向的变量，而不能改变另一个指向同一地址的变量的指向，所以也就无法完成 更改变量为nil的操作

 

哪常规的主窗口中的代码：

 

if not assigned(form2) then form2:=tform2.create(Self);

//if form2=nil then form2:=tform2.create(Self);

form2.show;

就会无用，因为现在form2 不是空指针。

 

 

Delphi(Pascal) code

属性设置:

 form1.formstyle:=fsMDIform;
 form2.formstyle:=fsMDIChild;
代码:
procedure TForm1.act_Frm2Execute(Sender: TObject);
begin
 if  form2=nil then form2:=tform2.Create(self);
 form2.Show ;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//freeandnil(tform(sender));
tform(sender).Free ;
tform(sender):=nil;
end;

如果FORM2中不用类型转换，直接把代码改成:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.free;
form2:=nil;
end;
则不会出现问题。
 
 
哪么，这个问题是DELPHI 的一个BUG 吗，相关官方人员没有给一个确切的回答，只是给了一个解决方案：
 


这个解决方案，这个对于小型软件来说，意义不大，但是对于大型的商业项目，确实是个不错的选择：
原贴请见：
http://bbs.codegear-cn.com/viewthread.php?tid=1013&extra=page%3D1
 
相关代码：
问题就在于你写的 if not assigned(child2) then了。我的意思是，不要写这一句，而是将其替换为 
if IsInclude(TChild2) then 。
然后在主窗体中写一个函数：
function TForm1.isInclude(formclass: TFormClass): boolean;
var
  i: Integer;
  form: TObject;
begin
  result := false;
  for i := 0 to MDIChildCount do
  begin
    form := MDIChildren[i];
    if form is formclass then
      result := true;
  end;
end;
这样就不需要再复制childn ：= nil 了。
 
也就是说，现在我们不用管这个指针是否指向NIL，而是在主窗口中查找引用次数，哪现在也就解决了子窗体中的代码不能通用化的问题.
 
最终的调用代码为：
procedure TForm1.form21Click(Sender: TObject);
begin
if  not isInclude(tform2)then  form2:=tform2.create(self);
form2.show;
end;
再修改下，就可以实现通用化了！
（最近如果能休改成功，则会把所有代码贴出来，思路有了，但是细节还是要慢慢的去实现)