建立子窗体时出现错误“cannot make a visible window modal”

建立子窗体时出现错误“cannot make a visible window modal”

（1）首先在project的options中,将子窗口改为不自动创建,即“Available forms”。
（2）如果窗体是MDIChild的话,是不可以ShowModal的,可以Show。因为ShowModal与Show是不同的。
         ShowModal时，要求Visiable=False,假使你设置为Visiable=True就会产生错误,而子窗体设置为MDIChild时Visiable自动设置为True;
          Show时,要求Visiable=True或False都不会错。

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   
Show函数定义： 
procedure TCustomForm.Show; 
begin 
    Visible := True; 
    BringToFront; 
end;