我把一个模块作成dll其中的一个单元包含下面代码用以创建另一个窗体,代码如下:
procedure Tfrm_zhcx.SpeedButton9Click(Sender: TObject);
begin
application.CreateForm(tfrm_qtj,frm_qtj);
try
frm_qtj.ClientDataSet1:=frm_zhcx.ClientDataSet1;
frm_qtj.gdsbh:=gdsbh;
frm_qtj.Show;finally
//frm_qtj.FreeModal;
end;
end;
问题是当我关闭frm_qtj窗体时连frm_zhcx窗体一起关闭了
请问一下这是什么原因