一个关于SDI的问题！

Question

我在主Form中调用一个子Form，语句如下：
var
  frmChatWeeks: TfrmChatWeeks;
begin
  Screen.Cursor :=crHourGlass ;
  frmChatWeeks :=TfrmChatWeeks.Create(Application) ;
  try
    frmChatWeeks.ShowModal ;
  finally
    frmChatWeeks.Free ;
  end ;
end;同时要说明的是：
  子Form frmChatWeeks中的Close按钮的ModalResult :=mrOK ;
当程序运行时会出现如下提示：
  'Can not make a visible windows modal'
我应该如何做呢？

Answer 1

frmChatWeeks :=TfrmChatWeeks.Create(Application) ;
在这下面插入一句：
frmChatWeeks.Visible := False;
试试

Answer 2

这样不行呀，那我的Form是无法看见的！

Answer 3

1.frmChatWeeks :=TfrmChatWeeks.Create(Application) ;
改为
frmChatWeeks :=TfrmChatWeeks.Create(Nil) ;
试试
2.TfrmChatWeeks的设为不自动创建不过，先看看吧。看不出其他错误尼。

Answer 4

我不知道你有没有真的去试过？
先在窗体设计的时候，把你的frmChatWeeks的Visible设置为False，
然后运行你自己的这段代码试试，看看是不是看不见！！
var
  frmChatWeeks: TfrmChatWeeks;
begin
  Screen.Cursor :=crHourGlass ;
  frmChatWeeks :=TfrmChatWeeks.Create(Application) ;
  try
    frmChatWeeks.ShowModal ;
  finally
    frmChatWeeks.Free ;
  end ;
end;我觉得你没有试过……

Answer 5

把Form frmChatWeeks中的Close按钮的ModalResult :=mrOK ;
改成 Close; 就可以了