多文档界面中的多个窗体模式显示的问题

Question

首先我启动多文档界面
选择某个菜单,代码如下
procedure TFrmMain.ZCDYongHGLClick(Sender: TObject);
begin
  if not Assigned(FrmYHGL) then
  begin
    FrmYHGL := TFrmYHGL.Create(Application);
  end;
  FrmYHGL.Show;//在这里设置ShowModal也报错
end;在启动的窗体中,有一个按钮事件,是启动另一个窗体,代码如下
procedure TFrmYHGL.Button1Click(Sender: TObject);begin
  if not Assigned(FrmTXGL) then
  begin
    FrmTXGL := TFrmTXGL.Create(Application);
  end;
  FrmTXGL.FrmTXGL.ShowModal;
end;但是出现错误,原因是在ShowModal这里,应该怎么作才能顺利让窗体模式显示
请各位高手指教!

Answer 1

在窗体关闭时要 FrmYHGL:=NIL
不然无法用Assigned判断.