我用循环动态创建了10个按钮,用完了怎么释放呀!
在线等待!
在线等待!
解决方案 »
- [delphi]Dataset does not support bookmarks……
- 调用FormCloseQuery异常
- FastReport3中某个控件如何在程序中赋值?高手请进。
- 怎样为Shape 添加 Handle ,因此我想切割三角形并且绘制成按钮形式(做七巧板用) , 但切割需要Handle ,还有做成按钮形式,有浮起的效果, 请
- 再次请教intraweb的问题
- 验证码的实现!!
- 一个关于消息处理的问题,为何这样的写会一点反应都没有呢?请高手赐教!
- 哪位大侠有关于tms charts 的例子
- 刚刚接触delphi.刚刚申请了ID 送分以表示祝贺!顺便请教一下关于delph有那些较好的书籍
- 关于动态数组做为参数???
- 求教外挂的hook问题
- 急,请问用POWERPOINT做一个40多页的课件怎么收费??????????
button1.free;
button1:=nil;
和这个类似,怎么创建的,怎么释放
var
btn:tbutton;
begin
btn:=tbutton.create(self);
btn:=tbutton.create(self);
btn:=tbutton.create(self);
...
btn:=tbutton.create(self);//十次
end;
那么只能释放最后一个。
//////////////////////////
2。如果:
var
btn1,btn2......btn10:tbutton;
begin
btn1:=tbutton.create(self);
btn2:=tbutton.create(self);
btn3:=tbutton.create(self);
...
btn10:=tbutton.create(self);
end;
那么就一个个释放。//当然brnx不能是局部变量,至少是能被释放的语句访问。//////////////////
2。如果:
var
btn:tbutton;
list:tlist;
begin
list:=tlist.create;
btn:=tbutton.create(self);
list.add(btn);
btn:=tbutton.create(self);
list.add(btn); ...
btn:=tbutton.create(self);
list.add(btn);//十次
end;
那么释放的时候这样:
for i:=list.count-1 downto 0 do
tobject(list.items[i]).free
if Form1.Controls[i] is TButton then
Form1.Controls[i].Free;