怎么样删除一个panel上的放置的panel？

Question

在程序中，怎么用程序删除panel上放置的panel（需要被删除的这些panel的名字不知道），

Answer 1

//把放置在panel1上面的panel删除
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=panel1.ControlCount-1 downto 0  do
    begin
      if panel1.Controls[i] is tpanel then
        tpanel(panel1.Controls[i]).Free ;
    end;end;

Answer 2

在程序中，需要被删除的这些panel的名字不知道,似乎是不可能的。就用楼上的方法了，改一下主PANEL的名字就OK