急问题,在MID窗口中,我如何知道,某一个窗口是否已经关闭?在线等待

解决方案 »

  1.   

    用循环实现:
    var
      i : integer;
      found : boolean;
    begin
      found := false;
      for i := 0 to self.MDIChildCount -1 do
        if self.MDIChildren[i].Name = 'frmXX' then
          found := true;
      if not found then
        frmXX := TfrmXX.Create(Application);
      frmXX.Show;   
    end;
      

  2.   

    用查找窗口句柄的方法(handle),具体你可以搜索一下
      

  3.   

    那就这样吧:
     if form2.Visible=false  then
       showmessage('closed!')
     else
       showmessage('Not close!');