我可以在 Delphi 6 / Delphi 7 中更改 TRAdioButton 上的字体字符集吗

Question

我在 Delphi 6 中构建了一个旧应用程序。正在定制用户可以更改屏幕字体和代码页的位置。我通过递归遍历所有表单、容器、控件等来做到这一点。

这在大多数情况下都有效。

但奇怪的是，我似乎无法更改 TRAdioButton 上的字体字符集。组标题工作正常，但里面的项目不继承容器字符集，尽管它们继承了字体。

示例文本以 ANSI 编码的中文输入，字符集 GB2312。

我查看了 ExtCtrls 的来源，并尝试了类似的东西

 TRadioButton(  thegroup.items[i] ).Font.Charset := programFilePrefFont.Charset;

.. 但它会导致 med 访问冲突。

我假设如果全局更改 Windows 区域设置，结果会有所不同，但这在 Win10 上很难。

我知道我可以与 TNT 合作，但这种变化涉及很多地方，所以暂时不做。这也变成了对好奇心的一点追求。

感谢您的任何意见。

Answer 1

要更改TRadioGroup 中TRadioButton 的字符集，请使用组的Buttons 属性，而不是Items 属性。

例如

thegroup.Buttons[i].Font.Charset := programFilePrefFont.Charset;