窗口关闭问题

Question

我有个主窗体，后来又在里面添加了一个子窗体，我想当每次按下这个子窗体的关闭按钮之后，不关闭子窗体，也就是说把那个字窗体的关闭功能给屏敝掉。我把子窗体的canclose设置成true后，结果整个程序都不能关闭了。
请问各位大侠该怎么做啊？
谢谢了

Answer 1

procedure Tfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;按钮里写
self.close;

Answer 2

procedure Tfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caNone;
end;

Answer 3

procedure Tfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
end;