怎样才能知道一个Form已经被release掉了? 首先,Form1在Close的时候,调用了Form1.release;然后,我在Form2里面,发现Form1并不是nil,怎样才能知道一个Form已经被release掉了? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if Form1<>nil then Form1.free; 我没发现什么好办法,我用 FindWindow 找这个窗口,没找着就是Free掉了 if assigned(Form1) then Form1.free; if assigned(Form1) then Form1.free; assigned(Form1) 和Form1<> Nil如果表单是你自己创建的,你在释放的时候还必须加一句:Form1:=Nil;不然的话,你的 Form1<> Nil 永远也等不到他为NIL 以上各位需要一个前提在Form1 OnClose中加上Form1 :=nil;但是,不知道能不能在该事件上实现,反正就是那个意思。 if Form1<>nil then FreeAndNil(Form1); if assigned(Form1) then begin Form1.free; form1:=ni;end; 安全的做法if Form1 <>nil then if assigned(Form1) then ... ***************************************************************GoldShield(金盾) :assigned(Form1) 和Form1<> Nil如果表单是你自己创建的,你在释放的时候还必须加一句:Form1:=Nil;不然的话,你的 Form1<> Nil 永远也等不到他为NIL***************************************************************你说的对,但是我的release是在Form1的Close时候做的,我怎么才能把Form1设置为nil?因为Close是base做的,所以我这时候找不到Form1 //在创建新窗体时这样做:var Form:TForm;begin Form:=TForm(Application.FindComponent('Form2')); if Form<>Nil then begin Form.Show end else begin TForm2.Create(Application).Show; end;end;//在每个窗体的Close事件中这样写:Action:=caFree; wizardqi(男巫) 说的正确!在默认的时候close是把窗体隐藏起来的!如果你在close事件里面加action:=caFree的话,这个是说明在关闭的时候把资源释放掉! 如果要手动释放资源的话必须在Form1.release;后加form1.free; 网络打印机不能设置类PageSetupr PagerSize属性 Access字段中记录比较的问题 求~~报表导出组件!!! 如何绘制类似仓库的平面位置图 如何取网页源代码?包含有iframe框架的情况下 关于URU指纹设备编程(100分不够再开贴!) 关于 DHtml的问题 请教老鸟,开发一个MRPII系统需要多少时间? dll的问题:动态库被FreeLibrary时,如何调用自己的退出函数 Exe文件捆绑问题........... 我用ado控件连接数据库,在winxp下运行报错,吐血! 那个打包软件好用呢?
不然的话,你的 Form1<> Nil 永远也等不到他为NIL
在Form1 OnClose中加上
Form1 :=nil;
但是,不知道能不能在该事件上实现,
反正就是那个意思。
begin
Form1.free;
form1:=ni;
end;
if Form1 <>nil then if assigned(Form1) then ...
GoldShield(金盾) :assigned(Form1) 和Form1<> Nil如果表单是你自己创建的,你在释放的时候还必须加一句:Form1:=Nil;
不然的话,你的 Form1<> Nil 永远也等不到他为NIL
***************************************************************
你说的对,但是我的release是在Form1的Close时候做的,我怎么才能把Form1设置为nil?
因为Close是base做的,所以我这时候找不到Form1
var
Form:TForm;
begin
Form:=TForm(Application.FindComponent('Form2'));
if Form<>Nil then
begin
Form.Show
end
else
begin
TForm2.Create(Application).Show;
end;
end;
//在每个窗体的Close事件中这样写:
Action:=caFree;
action:=caFree的话,这个是说明在关闭的时候把资源释放掉!