如何关闭form2??

Question

在form1（主窗口）中调用form2.show;后显示出的form2(子窗口)，点击form2上的关闭（X）后，form2变成最小化藏到form1的左下角了，但不是能关闭。为什么？

Answer 1

在formonclose事件中添加
action：=false；

Answer 2

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

Answer 3

form2的ONCLOSE事件中写 action:=cafree;

Answer 4

关闭子窗体：
begin
  Action := caFree;
end;
显示子窗体：
var
  Child: TfrmMDIChild;
begin
  Child := TfrmMDIChild.Create(Self);
end;