建立子窗体时出现错误“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环境下测试通过. |