如何把与父窗口的panel停靠的子窗口都释放掉（在不知道有哪些子窗口停靠的前提下）？有没有相关的函数？

Question

如何把与父窗口的panel停靠的子窗口都释放掉（在不知道有哪些子窗口停靠的前提下）？有没有相关的函数？

Answer 1

if components[i].classname='Tpanel' then
  components[i].free;

Answer 2

for i;=0 to panel1.componentcount-1 do
 if components[i].classname='Tpanel' then
  components[i].free;

Answer 3

楼上的会出错，应该是这样的：procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
for i:= 0 to panel1.DockClientCount -1 do
  begin
    panel1.DockClients[0].Free;
  end;
end;永远只要释放panel1.DockClients[0]就可以了

Answer 4

楼上的会出错，应该是这样的：
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
for i:= 0 to panel1.DockClientCount -1 do
  begin
    panel1.DockClients[0].Free;
  end;
end;永远只要释放panel1.DockClients[0]就可以了