Question

delphi中scrollbox中的字所有空间字体按比例变小

如题，有没有这样的代码可以直接实现的，一个一个设置太麻烦了

Answer 1

写一个函数，需要的时候调用一下。
函数中通过遍历TWinControl的Controls数组属性，递归设置每一个子控件。