if not assigned(form2) then
begin
form2:=tForm2.create(application);
form2.Show;
end
else
form2.show;这段代码存在于主窗口的菜单中,通过这段代码,打开子窗口form2,关闭form2后,再次通过这段代码打开的时候就报错了。form2的formclose事件中有action:=cafreef,form2的关闭按钮中有代码form2.close
大侠们能帮我看看问题在哪里吗?
begin
form2:=tForm2.create(application);
form2.Show;
end
else
form2.show;这段代码存在于主窗口的菜单中,通过这段代码,打开子窗口form2,关闭form2后,再次通过这段代码打开的时候就报错了。form2的formclose事件中有action:=cafreef,form2的关闭按钮中有代码form2.close
大侠们能帮我看看问题在哪里吗?
解决方案 »
- delphi RichEdit消息问题
- delphi中DrawLeftimageText画字Tlmage切换的时候会有残影
- 求多线线程的一个程序代码如何写
- 这样的应用:数据表怎么设计好呢?
- 有小BABY了,散分。
- 如何判断web中的一个文件是否存在?
- devExpress中的CXGRID做EXCEL输出时怎么控制输出字体跟CXGRID上的字体和颜色一致?
- 关于mscomm的问题,在线等待,急急急急急急急!
- Borland收购BoldSoft资产 推动.Net应用
- ******我编写的一个裁剪BMP图的DLL,源码奉上,请大家修改*********
- delphi7中的指针问题
- 三层速度的问题!~~~(SocketConnection)
Try
....
...
finally
form2.free;
end;