[转]Delphi中释放父控件里的所有子控件
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;
本文已关闭评论