请教怎么通过ini设置整个窗口的字体

请问如何通过ini设置整个窗口的字体.
所以能设置字体的控件...

读取ini这个我倒是明白.
然后修改单控件字体我也明白.

但是控件遍历...(涉及多Form)
[解决办法]

for i := 0 to ComponentCount - 1 do
begin
  if Components is TWinControl then
  begin
    TWinControl(Components).font.Assign(vIniFont);
  end;
end;

[解决办法]
 for f:=0 to Screen.FormCount-1 do
   with screen.forms[x] do
     楼上的代码
[解决办法]

引用:

Quote: 引用:

Quote: 引用:

for i := 0 to ComponentCount - 1 do
begin
  if Components is TWinControl then
  begin
    TWinControl(Components).font.Assign(vIniFont);
  end;
end;

这个方法可以写在一个form中，其他的form从此form继承。
vIniFont是一个TFont类型变量，你要自己定义。

请问读取ini是一个'微软雅黑'的string型,如何转tfont呢?

f:Tfont;

f.name:='微软雅黑';

查看更多 下一篇