窗口名为InvDealResultFrm 类型为fsMDIChild
窗口名为infoFrm 类型为fsNormal程序要求:
在InvDealResultFrm 中打开窗口infoFrm后,想关闭窗口InvDealResultFrm 。我在InvDealResultFrm 窗口按钮中这么编写如下程序,但是实际效果为必须等infoFrm窗口关闭后InvDealResultFrm窗口才关闭。=========================================
infoFrm := TinfoFrm.Create(application);
infoFrm.ShowModal;
infoFrm.Free;
infoFrm:=nil;InvDealResultFrm.Close;
=========================================
窗口名为infoFrm 类型为fsNormal程序要求:
在InvDealResultFrm 中打开窗口infoFrm后,想关闭窗口InvDealResultFrm 。我在InvDealResultFrm 窗口按钮中这么编写如下程序,但是实际效果为必须等infoFrm窗口关闭后InvDealResultFrm窗口才关闭。=========================================
infoFrm := TinfoFrm.Create(application);
infoFrm.ShowModal;
infoFrm.Free;
infoFrm:=nil;InvDealResultFrm.Close;
=========================================
解决方案 »
- 关于speedbutton的caption
- 怎样在程序运行时调出AdoConnection的ConnectionString设置窗口,并得到返回的连接字符串
- 知道感应卡的通讯协议 怎样利用DELPHI控件来读写感应卡上的数据啊
- 算出的百分比不正确。IPlist.Strings[I] := Format('★%5d次★%5f%%★%s', [J,(J/IPlist.Count)*100,IPlist.Strings[I]]);
- 一句話就得分了哦
- ADOQuery1:Missing SQL property.
- 分部式系统如果不联机,如何保持数据一致?
- 请教
- Decision Cube不用odbc怎么使?
- 急,关于AcdSee的缩略图如何实现问题,请大侠救援
- 求教,怎么在DBGrid的每条记录前出现一个CheckBox
- delphi调用VB编写的DLL函数
InvDealResultFrm.hide; //先隐藏
infoFrm.ShowModal;
infoFrm.Free;
infoFrm:=nil;InvDealResultFrm.Close;//消耗
所以要达到你的效果,可以在infoFrm的onshow事件中关闭InvDealResultFrm
也可以用楼上的办法
self.hide; //最好是 self.close
infoFrm.ShowModal;
infoFrm.Free;
infoFrm:=nil;
你说关闭InvDealResultFrm ,为何要把infoFrm给关了?infoFrm:=nil就是关闭的意思
这样当然是infoFrm关了,InvDealResultFrm 才会关
infoFrm:= TinfoFrm.Create(application);
InvDealResultFrm.Close;
infoFrm.ShowModal;
infoFrm.Free;
infoFrm:=nil;