在如何在模态窗口(showmodal)中动态删除动态生成的控件?

Question

我使用insertcontrol的方法,在模态动态生成控件,当在关闭前我使用removecontrol方法移除控件后,再次打开模态窗口,并自动生成新控件时提示上次删除的控件名称还存在,不能生成新控件.
请问如何彻底移除生成的控件.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
  win:Tcontrol;
begin
  for i:=0 to form1.ControlCount-1 do
  begin
    win:=form1.Controls[i];
    win.Free;
  end;
end;

Answer 2

capoatguitar(菠萝蜜汁红塔山)是正确的
不过更正一下form1.Controls[i]当为form1.Controls[0]谢谢结贴

Answer 3

搞反了，循环应该是for i:=form1.ControlCount-1down to,嘿嘿，这不误人子弟吗！！！