不懂得关闭窗口!!(0分)

  • 主题发起人 新手来的
  • 开始时间

新手来的

Unregistered / Unconfirmed
GUEST, unregistred user!
有一个子窗口和一个父窗口,当我在父窗口用Show命令把子窗口打开后再在子窗口用Close
把子窗口关闭,再在父窗口用Show命令打开子窗口时发现我所作得修改并没有改变,也就是说
子窗口根本就没有关闭,只是隐藏而已,请问如何设置?
 
在onformclose中,加入:action:=cafree;
 
用caFree
子窗体默认行为是隐藏 不是关闭
 
这个问题只有在父子窗体里才会出现,要把action设为cafree;
另外,也可以让一个窗口关不掉,action :=canone;
但application.Terminate;一定能关掉,但是它是把所有的都关掉。
 
在onformclose中,加入:action:=cafree;
在onformdestory中,加入:子窗口:=nil;
 
不要用SHOW
子窗体Create就自动SHOW了。
关闭时action:=cafree
 
procedure TdlgNewStockDetail.FormClose( Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;//加上这一句就行了
.........
end;
 
action:=cafree;
 
请问如何实现在完成了某项任务后自动关闭当前窗口?
 
在ONCLOSE里加了action:=cafree;后
显示就不能用SHOW了,得创建了。不过这样非常好
 
SHOW是显示模式窗体,关闭是在窗体的ONCLOSE事件中:
Action:=CaFree;
即可.
 

Similar threads

顶部