现在有fsMDIForm和多个fsMDIchild窗体显示,想显示出子窗体。
现在菜单上显示fsMDIchild的代码是:
FrmWellServe:=TFrmWellServe.Create(nil);
FrmWellServe.Show;
在窗体关闭时的代码是
action:=cafree;
可以,可是我作的代码多个窗体,都改成这样的为什么就不显示窗体啊!!
现在菜单上显示fsMDIchild的代码是:
FrmWellServe:=TFrmWellServe.Create(nil);
FrmWellServe.Show;
在窗体关闭时的代码是
action:=cafree;
可以,可是我作的代码多个窗体,都改成这样的为什么就不显示窗体啊!!
begin
MainForm.FrmWellServe:=nil;////////////////加上这句
Action := caFree;
end;///////////////// 下面是父窗体打开子窗体的代码if FrmWellServe = nil then
FrmWellServe := TFrmWellServe.Create(self);