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

2016-4-9 / 0评 /

本文共计 481 字,感谢您的耐心浏览与评论。

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;

声明:多春鱼吧|版权没有,违者不究|转发请注明出处

转载:转载请注明原文链接 - [转]Delphi中释放父控件里的所有子控件

0条回应:“[转]Delphi中释放父控件里的所有子控件”

发表评论