动态连接库输出的MDIChild窗体在主界面上我用了以下的常规方法不行:
for I := 0 to frmMain.MDIChildCount - 1 do
begin
if frmMain.MDIChildren[I] <> nil then
frmMain.MDIChildren[I].Close;
end;
for I := 0 to frmMain.MDIChildCount - 1 do
begin
if frmMain.MDIChildren[I] <> nil then
frmMain.MDIChildren[I].Close;
end;
解决方案 »
- 软件外包的操作模式是怎么的?
- Delphi 状态栏问题
- 请问一些软件所用的数据库究竟是什么
- 放分100!!!!!@@@@@刚好,100,强烈要反对--小小不要离开csdn !!!!!!强烈反对!!!
- 视频卡有谁作过吗?请问这段代码能抓图吗?挺急的,分数不是问题!
- 有关RS232的问题。。 在线和等
- 怎样达到类似于NT锁定工作站的效果
- DecisionQuery结果为空的时候能不能通过Cube
- 能用delphi 编写一个将*。xls 或*.mdb 导入到sql server 7.0 中吗?
- 如何处理下面两个表?重酬
- Dll 加载 MDI 窗体的时候出现了问题
- 做好的程序,我在主界面上放上businessskin 控件,为什么菜单相没了啊,
begin
frmMain.MDIChildren[I].Close;
frmMain.MDIChildren[I].free;
frmMain.MDIChildren[I]:=nil;
end;
for i:=MDIChildCount-1 downto 0 do
MDIChildren[i].Close;
begin
if MDIChildren[0] = nil then
break;
frm := MDICHILDREN[0];
FreeAndNil(frm);
end;
用上面的吧,肯定没问题的
现在我已解决,用的还是常规方法,谢谢你们