▲▼关于Delphi中Cell释放的问题,为什么总是关掉程序的时候出错

ZyxIp 2003-09-05 02:50:07
主窗体上有一个PageControl1,上面有TabSheet1

在TabSheet1中有一Cell1.

主窗体上中有一按钮Button1,单击事件中这样写
var
Form:TForm ;
pagecontrol:TPageControl ;
begin
Form:=TForm .Create(Self);
Form.Font :=Self.Font ;
pagecontrol:=TPageControl .Create(Form);
pagecontrol .Parent :=Form ;
pagecontrol .Align :=alClient ;
TabSheet1.PageControl :=pagecontrol ;
Form .ShowModal ;
pagecontrol .Free;
Form.Free ;
end;


执行后新建了一模式窗口,form关闭也正常,可在整个程序退出时出错了。请问如何实现解决
debugger exception notification

project project1.exe raised exception class EAccessViolation with message
'access violation at address 6bc41c65 in module 'MFC42.DLL',read of address 0227b6b0,process stopped .use step or run to continue.

...全文
27 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

247

社区成员

发帖
与我相关
我的任务
社区描述
其他产品/厂家
社区管理员
  • 其他
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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