建立子窗體時出現錯誤“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;