DELPHI窗口关闭

Question

请问一下能不能在点击Form的关闭按钮（默认的那个）时执行一段其他代码，这段代码该添加在什么地方。

Answer 1

点击窗体的关闭按钮后，会产生OnClose事件procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);其中参数Action还可以控制窗口的关闭
如
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caNone;
end;
这样，当点击关闭按钮时，窗口不会关闭
当Action:=caFree时，窗口才会正常关闭，系统默认“Action:=CaFree”