Delphi中释放父控件里的所有子控件

最新推荐文章于 2024-09-18 14:18:23 发布

love3s

最新推荐文章于 2024-09-18 14:18:23 发布

阅读量5.2k

点赞数

分类专栏： Delphi 文章标签： delphi

本文链接：https://blog.youkuaiyun.com/love3s/article/details/7035092

版权

Delphi 专栏收录该内容

41 篇文章

订阅专栏

procedure TFrmMain.ClearControls(AParent: TWinControl);
var
  i: Integer;
begin
  for i := AParent.ControlCount - 1 downto 0 do begin
    if not AParent.Controls[i].InheritsFrom(TWinControl) then Continue;
    try
      if TWinControl(AParent.Controls[i]).ControlCount > 0 then begin
        ClearControls(TWinControl(AParent.Controls[i]));
      end;
      AParent.Controls[i].Free;
    except
    end;
  end;
end;