delphi 子窗体只能最小化不能关闭的解决方案

cnpack下载地址：http://www.cnpack.org/showdetail.php?id=726&lang=zh-cn

时候创建的子窗体不能关闭，点关闭按钮时子窗体最小化了。

出现这种情况的时候可在窗体的 onClose 事件 中加入 Action := caFree;  即可；

例：

procedure TTInputCLSY.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;