fomr2.ShowModal出现cannot make a visible window modal错误，但fomr2.Show则正常，为什么？

注意：  
  因为ShowModal与Show是不同的。  
   
  fomr2.ShowModal时，要求Form2.Visiable=False,假使你设置为Visiable=True就会产生错误：  
      看ShowModal函数定义：  
  function   TCustomForm.ShowModal:   Integer;  
  var  
      WindowList:   Pointer;  
      SaveFocusCount:   Integer;  
      SaveCursor:   TCursor;  
      SaveCount:   Integer;  
      ActiveWindow:   HWnd;  
  begin  
      CancelDrag;  
      if   Visible       //Form.visible=True.  
            or   not   Enabled   or   (fsModal   in   FFormState)   or  
          (FormStyle   =   fsMDIChild)   then  
          raise   EInvalidOperation.Create(SCannotShowModal);   //产生一个raise，出错误。  
      其中SCannotShowModal   =   'Cannot   make   a   visible   window   modal';      
  ...  
  end  
   
  fomr2.Show时，要求Form2.Visiable=True或False都不会错。  
  Show函数定义：  
  procedure   TCustomForm.Show;  
  begin  
      Visible   :=   True;  
      BringToFront;  
  end;