相关代码如下: procedure EnterForm(MainApp: TApplication; ID: integer; ModNo: string; vParam: string = ''); stdcall; begin case ID of 101:begin if frmWare=nil then begin Application.CreateForm(TfrmWare,frmWare); frmware.EnterForm; end else frmWare.BringToFront; end; end; end;procedure TfrmWare.EnterForm; begin self.FormStyle:=fsMDIChild; self.WindowState:=wsMaximized; show; end;执行到show这一行报错:“Cannot create form.NO MDI forms are currently active” 如果将formstyle设置为fsNormal,能正常调用
procedure EnterForm(MainApp: TApplication; ID: integer; ModNo: string; vParam: string = ''); stdcall;
begin
case ID of
101:begin
if frmWare=nil then
begin
Application.CreateForm(TfrmWare,frmWare);
frmware.EnterForm;
end
else
frmWare.BringToFront;
end; end;
end;procedure TfrmWare.EnterForm;
begin
self.FormStyle:=fsMDIChild;
self.WindowState:=wsMaximized;
show;
end;执行到show这一行报错:“Cannot create form.NO MDI forms are currently active”
如果将formstyle设置为fsNormal,能正常调用