Is there any way to delete all of the items from a TPanel at runtime?


--
Chris Holland
[Team Elevate]

Chris,

this should work:

procedure TForm1.ClearPanel(Sender: TObject);
var
 i: integer;
 c: TComponent;
begin
  for i := componentcount - 1 downto 0 do
  begin
    c := component[i];
    if TControl(c).parent = sender then
      c.free;
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ClearPanel(Panel1);
end;

Thanks Uli,

That works great.

Chris Holland
[Team Elevate]

On 20/08/2013 17:59, Uli Becker wrote:
>   c: TComponent;