怎样释放动态创建的组建?比如,我有一个静态创建的Timage,和N个动态创建的Timage。我现在仅要保留静态Timage,而释放N个动态创建的Timage,怎么做?
解决方案 »
- 挂接实名模拟二代身份证刷卡
- ocr 双层pdf技术~急
- 设置断点的问题
- delphi6用Quickreport 做的打印程序,在其他微机上运行,是否需要哪些 *.dll文件?,是否可单独运行?
- sql简单查询,马上结帖。
- Delphi原来和vb一样容易学,呵!
- 请问各位大哥,如何使一个动态生成的按钮鼠标单击事件与一个自定义过程函数捆绑?
- 如何注册组件?
- 如何知道一个TADOConnection中有多少Table,并且要知道每个表的名称?
- 大家一起来讨论讨论delphi6的新特性吧!!高分为了吸引大家的热情,来者有分!!
- 请问ODBC,ADO,BDE,SQL有什么区别?急,详细讲解
- 如何在Delphi7中使用QuickReport?哪儿有下?
给分我咯!
for i = 0 to form1.Controls.Count -1 do
begin
if ((form1.Controls[i].ClassName = TImage)
and (form1.Controls[i].tag = 100))
begin 删除
end;
end;
:)
ima:array[1..5] of timage;
begin
i:=1;
while i<=5 do
begin
if i:=1 //相信你的几个image的位置不一样,可以利用利用if 语句控制
ima[i]:=timage.Create(self);
ima[i].top:=*
ima[1].left:=* //width,height位置参数你自己设置吧,
。
。
end;
//释放
for 1:=1 to 5 do
ima[i].free
创建时给Tag属性设为某个值是最常用的解决方法