midchildform关闭问题

Question

midchildform窗体点击关闭按钮时，实现了最小化功能，请问怎么能实现关闭此窗体的功能。

Answer 1

一般都是设CanClose 和 Action

Answer 2

OnClose事件处理函数中
Action := caFree;

Answer 3

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

Answer 4

on close事件，或者截获WM_CLOSE消息，处理事件改成最小化