关于MDIChild问题

如何在创建一个MDIChild时，其它MDIChild都关闭？ 问题点数：100、回复次数：5Top

1 楼xthmpro_cn（[可人]）回复于 2005-08-03 08:55:48 得分 40

下面的语句适度加上循环,即可。  
  Application.MainForm.MDIChildCount  
  Application.MainForm.MDIChild[i].CloseTop

2 楼pengxuan（网虫先生）回复于 2005-08-03 08:58:33 得分 0

试试楼上的Top

3 楼smalldisk（smalldisk）回复于 2005-08-03 08:58:59 得分 0

楼上的能否给个完整点的源代码？我刚学delphi不久Top

4 楼smalldisk（smalldisk）回复于 2005-08-03 09:01:36 得分 0

顺便问下，怎么给分Top

5 楼pengxuan（网虫先生）回复于 2005-08-03 09:11:58 得分 60

procedure   TForm1.Button1Click(Sender:   TObject);  
  var   i:integer;  
  begin  
      for   i:=0   to   Application.MainForm.MDIChildCount-1   do  
      begin  
          Application.MainForm.MDIChild[i].Close;  
      end;  
      //下面是你创建新的MDIChild的代码  
  end;  
  点问题列表右边的管理，输入用户码给分就可以了Top

相关问题

• application
• mdichild
• mainform
• 问题
• 创建
• begin
• close

• 帖主：smalldisk
• xthmpro_cn
• pengxuan

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