如何完全释放项目 (急呀 救命了!) ( 积分: 100 )

  • 主题发起人 主题发起人 borlearn
  • 开始时间 开始时间
B

borlearn

Unregistered / Unconfirmed
GUEST, unregistred user!
各位仁兄:
目的是为了实现对动态库的调用,动态库中的fsMdiChild窗体在主程序中被调用并且要成功释放.
我做了个主程序,其主窗体定义为fsMDIForm窗体;添加一按钮,采用动态方式调用.
同时做了个动态库.窗体为fsMdiChild类窗体.
在动态库接口中定义为:
function getDLL(tempApp: Tapplication): boolean;stdcall;
var
FrmArea : TFrmArea; //FrmArea为fsMdiChild窗体;
begin
application := tempApp;
FrmArea := TFrmArea.Create(application.MainForm);//基于主程序的主窗体创建子窗体
try
FrmArea.show;
except
end;
在窗体FrmArea的onclose中:
action := caFree;

关闭子窗体时没有错误.但在整体项目关闭时出现错误;提示没有释放.
请问各位仁兄:
此问题如何解决?
!谢谢
 
application.MainForm?
 
application.MainForm?:
这是基于主程序中的主窗体创建的子窗体.
 
用 MDIChildren释放啊
 
先在destroy里加上..
FrmArea:=nil;
 
在窗体FrmArea的onclose中:
FrmArea:=nil;
action := caFree;
 
MDIChildren如何进行释放?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部