怎样将子窗口自动关闭？

我在form中许多mdiform，我怎样通过点击某个按键关闭子form. 问题点数：20、回复次数：11Top

1 楼sixgj（轰炸机）回复于 2003-10-02 11:17:13 得分 0

设置事件为关闭窗体就是。Top

2 楼xiaoqiang123（xiaoqiang）回复于 2003-10-02 12:08:00 得分 0

按钮事件：窗体名.close;  
  窗体中的formclose：  
                        cafree:=true;Top

3 楼xiaoqiang123（xiaoqiang）回复于 2003-10-02 12:25:14 得分 0

窗体中的formclose：  
                        action:=cafree;Top

4 楼OK001（）回复于 2003-10-03 09:22:09 得分 0

我的用意是子窗口名是动态的，　是一个变量。  
  比如我的子窗口名是mdiform  
   
  即aa:='fmdiform'  
  我用aa.close程序就出错，怎样实现关闭呢？Top

5 楼cdzjhmao（）回复于 2003-10-03 10:38:02 得分 0

action:=cafree;Top

6 楼hejianling305（爱上编程的笨小孩）回复于 2003-10-03 10:44:30 得分 0

是的。在关闭窗口的事件中。加入action:=cafree;来释放子窗口的资源Top

7 楼OK001（）回复于 2003-10-03 16:02:45 得分 0

没有人回答很全面  
   
  我的意思是子窗口名是一个变量，怎样实现关闭的功能。Top

8 楼edgethinking（学习.net中...）回复于 2003-10-03 16:23:43 得分 20

 
  -----------------------  
  for   i   :=   0   to   screen.FormCount   -   1   do  
  begin  
          if   screen.Forms[i].ClassName   =   aa   then  
                  screen.Forms[i].Close;  
  end;  
  Top

9 楼siwuge（五哥）回复于 2003-10-03 16:26:12 得分 0

帮顶。Top

10 楼w78z（秋风细雨）回复于 2003-10-03 16:39:25 得分 0

顶。。  
  没想到关一个子窗口。。  
  竟需要这么长的句子。  
  。。。。。。。  
  学到了。。~  
  Top

11 楼lydvqq（碧水情缘♀黑哥）回复于 2003-10-03 16:57:33 得分 0

 
  還不行嗎？  
  Top

相关问题

• 子窗口
• 窗体
• 关闭
• cafree
• screen
• aa
• close
• forms

• 帖主：OK001
• edgethinking

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载