请教如何将窗体上的label的font全部改为CHINESEBIG5_CHARSET ( 积分: 200 )

L

lashy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-10

• #1

问题如下：
1、在我的窗体界面上放置有多个label控件，比如label1、label2...等
2、所有的字体如下：Label1.Font.Charset := DEFAULT_CHARSET;
3、我如何使用一个类，将所有的label1均改为：
Label1.Font.Charset := CHINESEBIG5_CHARSET;
Label2.Font.Charset := CHINESEBIG5_CHARSET;
注：不使用数组循环来赋值，因为label后面的数字排列不规则

 

L

lake_cx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-10

• #2

直接把窗体的字体改了就好了
因为所有组件的ParentFont默认都为True
实在要用代码改，
var
i: Integer;
begin

for i := 0 to ComponentCount - 1do

begin

if Components is TLabel then

TLabel(Components).Font.Charset := CHINESEBIG5_CHARSET;
end;

end;

 

L

lashy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-10

• #3

我把用简体程序在繁体环境下执行命令在繁体环境下运行
仍然显示乱码
可能是繁体环境没有简体字库的支持，请问怎么办才可以

 

X

xl4772

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-10

• #4

把所有label都放到一个panel上，改panel的Font.Charset就可以了阿！

 

L

lake_cx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-10

• #5

给它装呗。。。