delphi窗口的create和free，一个古老的话题

Posted 2020-08-02 USEGEAR

窗体分为模式窗体和无模式窗体。

模式窗体在创建窗口创建和释放：

begin
  if not Assigned(FB_Input_JianYanDan) then FB_Input_JianYanDan :=TFB_Input_JianYanDan.Create(Self);
  try
    FB_Input_JianYanDan.ShowModal;
  finally
    FB_Input_JianYanDan.Free; 
    FB_Input_JianYanDan:= nil; 
  end;
end;

非模式窗口：在自己的窗口close中free：FreeAndNil(FB_Input_JianYanDan);