关于 free 问题

zhansong333 发布于 2006-05-15 16:15， 584 次点击

我在scrollbox1中动态生成了很多 label edit 组件

请问如何将其释放呢（保留scrollbox1)

（如果用 scrollbox1.free 的话，就连scrollbox1也没了，下次也就不能再在里面继续动态生成若干个组件了）
请指教！！

2 回复

zhansong3332006-05-15 16:28

问题已经解决，谢谢！
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:= scrollbox1.ControlCount - 1 downto 0 do
scrollbox1.Controls[I].Free;
showmessage('ok');
end;

zhansong3332006-05-15 16:31

也可以用
scrollbox1.free;

然后再动态创建一个 scrollbox1，然后再在里面动态生成其他组件；

这个方法也可以在 scrollbox1里组件比较多时，速度比较快些