转帖：ShowModal与Show的区别

ShowModal与Show的区别

在用delphi开发时，碰到这样的问题：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;