创建窗体列表

 

找到MDI主窗口，然后在菜单中增加一个用来放窗口列表的菜单项如M1，这样在主窗口的属性windowmenu里选择m1就可以了。只要主窗口有创建子窗口就会在m1的菜单下加一个项。

 

var i:integer;
    child :Tform;
    fchild :Tform;
begin
    for i:=0 to Screen.FormCount -1 do
       if Screen.Forms[i].ClassType=Formclass then
           begin
          child:=Screen.Forms[i];
          if child.WindowState =wsMinimized then
            showWindow(child.handle,SW_SHOWNORMAL)
           else
             showWindow(child.handle,SW_SHOWNA);
          if (not child.Visible ) then child.Visible :=True;
          child.BringToFront ;
          child.SetFocus ;
          Tform(myform):=child;
          exit
           end;
  lockWindowUpdate(handle);
  fchild := Tform(Formclass.Newinstance);
  Tform(myform) := fchild;
  fchild.Create(AOwner);
  LockWindowUpdate(0);