如何释放动态库中创建的子窗口?

diecode 2003-08-18 06:16:32
在主程序中,通过调用动态库子程序,创建子窗口(fsMDIChild),可是在关闭主窗口的时候,报错,不知何故?
在子窗口的OnClose中加了代码action:=caFree;也不行
...全文
21 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
MMisLady 2003-08-19
  • 打赏
  • 举报
回复
procedure ClsMDIChildWindow(MainForm:TForm;exFmName:Pchar);
var
I:integer;
begin
for i:=MainForm.MDIChildCount-1 downto 0 do
if UpperCase(MainForm.MDIChildren[i].Name)<>UpperCase(String(exFmName))then
MainForm.MDIChildren[i].Close;
end;
在退出的时候调用
ClsMDIChildWindow(fmMain,''); //fmMain为主窗口
DWGZ 2003-08-19
  • 打赏
  • 举报
回复
procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
movingboy2 2003-08-19
  • 打赏
  • 举报
回复
你的程序报了什么错啊?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧