请专家鉴定下面的方法是否标准方法或最好的方法,谢谢!!! 创建: begin if not Assigned(ModalLessForm) then ModalLessForm := TModalLessForm.Create(Application); ModalLessForm.Show; end; 释放: procedure TModalLessForm.FormClose(Sender: TObject; var Action: TCloseAction); begin action := caFree; end;
procedure TModalLessForm.FomDestroy(Sender: TObject); begin ModalLessForm := nil; end;
----------------------------------------------
-