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;
关闭子窗体时没有错误.但在整体项目关闭时出现错误;提示没有释放.
请问各位仁兄:
此问题如何解决?
!谢谢
目的是为了实现对动态库的调用,动态库中的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;
关闭子窗体时没有错误.但在整体项目关闭时出现错误;提示没有释放.
请问各位仁兄:
此问题如何解决?
!谢谢