为什么我的MDI子窗体关闭时像最小化，而没有关闭？怎样可以关闭？

Question

RT

Answer 1

在MDI子窗口的OnClose事件中写如下代码：
Action:=caFree;
即可关闭。

Answer 2

再说一句：
在默认情况下是：
Action:=caHide;即为隐藏！

Answer 3

Mdi窗体的退出时写
action:=cafree;

Answer 4

procedure TZJ_ZJYC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  aTempQuery.close;
  action := cafree;
end;

Answer 5

学习，我以前都是把它直接free掉，不知道有没有问题。

Answer 6

在OnClose事件中写如下代码：
Action:=caFree;
在Destroy事件中写如下代码：
TForm(Sender) := nil;

Answer 7

前面已讲了。
在OnClose事件中写如下代码:
Action:=caFree;

Answer 8

在OnClose事件中写如下代码: Action:=caFree;

Answer 9

action := cafree;
"你的窗体控件" := nil;创建的时候你可以这样写
if not assigned ("你的窗体控件") then
create
else
"你的窗体控件".Show

Answer 10

gzllich(刚从泥坑里出来) 的说法是对的。

Answer 11

Action:=caFree;
即可关闭。

Answer 12

在onclose中加入
Action:=caFree;
即可