我建立一个多窗体程序，最前一个是父窗体，其余的是子窗体，但是子窗体Close不了，

Question

在ONCLOSE中加ACTION := CAFREE就可以了

Answer 1

在ONCLOSE中加ACTION := caHide就可以了

Answer 2

FREE掉了再创建一个就行了
CHILDFORM := TCHILDFORM.CREATE(MAINFORM);
CHILDFORM.SHOW;

Answer 3

OnClose 事件加 Action := caHide;

Answer 4

用一个按扭出发close事件，然后在close事件中加如Action:=caFree

Answer 5

procedure TForm1.FormClose(Sender: TObject; var Action:TCloseAction);
begin
   Action:=caFree;
end;
{TCloseAction 的定义为:  TCloseAction = (caNone, caHide, caFree, caMinimize); 在子窗体中 Action 的默认值为 caMinimize ,所为就不会关闭窗体
}