语句使用问题

Question

procedure TGZTJ_FORM.cmdCloseClick(Sender: TObject);
begin
  Action:=caFree;
  
end;
   本人有看一例子,不明Action:=caFree;完成什么功能,有哪位大侠指教一下,我是位DELPHI初学者

Answer 1

cafree就是你可以关闭窗体了
通常用于在关闭窗口时的询问 确实要退出么

Answer 2

樓主所要問的是不是如下問題？
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;關於這個問題，樓主可以看一下TCloseAction，你可以看到有3個值其中caFree指的是窗體在關閉時，釋放窗體的資源，也就是說你再通過引用去訪問該窗體的資源，則會出現一個訪問錯誤