MDIChild.show不行吗?
如果不行,你可以使用setwindowpos来修改z坐标。

解决方案 »

  1.   

    self.MDIChildren[i].BringToFront;
         // sendmessage(MDIChildren[i].handle,wm_syscommand,SC_RESTORE,0);
          MDIChildren[i].SetFocus;
      

  2.   

    procedure TMainForm.acMDIChildExecute(Sender: TObject);
    var
      i: Integer;
    begin
      for i := 0 to MDIChildCount-1 do
      begin
        if SameText(MDIChildren[i].ClassName, 'TMDIChildrenForm') then
        begin
          MDIChildren[i].BringToFront;
          Exit;
        end;
      end;
      TMDIChildrenForm.Create(Self).Show;
    end;