怎样将子窗口自动关闭？

Question

我在form中许多mdiform，我怎样通过点击某个按键关闭子form.

Answer 1

按钮事件：窗体名.close;
窗体中的formclose：
           cafree:=true;

Answer 2

窗体中的formclose：
           action:=cafree;

Answer 3

我的用意是子窗口名是动态的，　是一个变量。
比如我的子窗口名是mdiform即aa:='fmdiform'
我用aa.close程序就出错，怎样实现关闭呢？

Answer 4

是的。在关闭窗口的事件中。加入action:=cafree;来释放子窗口的资源

Answer 5

-----------------------
for i := 0 to screen.FormCount - 1 do
begin
    if screen.Forms[i].ClassName = aa then
        screen.Forms[i].Close;
end;