关于MDIChild问题

Question

如何在创建一个MDIChild时，其它MDIChild都关闭？

Answer 1

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

Answer 2

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

Answer 3

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;
点问题列表右边的管理，输入用户码给分就可以了