建立子窗体时出现错误“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;

 

 

c++ builder 6 同样有类似的问题 

找开以下方法

Delphi的fsMDIChild类型的窗体是不能使用ShowModal的，否则会弹出"Cannot make a visible window modal"异常，但是把fsMDIChild改为fsNormal类型之后使用ShowModal，依旧会弹出＂Cannot make a visible window modal＂，经研究确定这是Delphi7的一个Bug,Delphi7之后的版本暂未使用，不知这个Bug是否还存在，处理的办法是先确定窗体模式已改回为fsNormal模式，然后用记事本打开窗体的dfm文件，找到Visible=True,把这一句删除了，再保存，然后重新编译运行，就不会再有"Cannot make a visible window modal"异常，弹出来了，在D7+XP环境下测试通过．