★★★在panel上动态增加了一些shape控件，如何移除，以便进行刷新？★★★

Question

在panel上动态增加了一些shape控件，如何移除?
(因为控件会增加、减少，所以需要刷新)
       for i:=1 to ADOQuery5.RecordCount do
          begin
            shape:=tshape.Create(self);
            shape.Parent:=panel2;
            shape.Name:=ADOQuery5.FieldValues['caption'];
              
            ADOQuery5.Next;
          end;

Answer 1

把panel当做容器
然后建立 shape后 最后使用 free 释放掉。

Answer 2

var
  I: Integer;
begin
//....
  for I := Panel2.ControlCount - 1 downto 0 do
    if Panel2.Controls[I] is TShape { TODO : and 其他条件} then
      Panel2.Controls[I].Free;
//....
end;