使用包后关闭窗体时退出的异常

使用包后关闭窗体时退出的异常

（uses 上一篇：如何处理包内单元的相互引用关系）

 

情况是这样的：

 

情形一：
导航窗体单元TfrmNavigation --调用-->TDatabaseBackupForm(没有显式自销毁)
--调用--> TServerDiratryForm 则在导航窗体关闭时报地址错误

 

情形二：
导航窗体单元TfrmNavigation --调用-->TDatabaseBackupForm(显式自销毁)
--调用--> TServerDiratryForm 则在导航窗体关闭时没有报地址错误，正常关闭

 

 但不管那种情形TServerDiratryForm 都不需要显示自销毁。也就是说导航窗体直接
调用的窗体需要显式调用自销毁代码（呵呵，有点绝对化了，可能而已）。