如何动态调整一个程式中所有窗体的字体大小?(50分)

S

sandal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #1

某窗体中各控件的字体可以随FORM.FONT属性动态变更,但是如何在运行时动态设定程式中
所有窗体中所有控件的字体大小呢? 例如,我增加一菜单项,设定程式的字体大小,但只能改变本窗体的字体,后面打开的窗体字体并不会跟随变化.

 

幻

幻世星龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #2

定义一个全局变量用来保存FONT的信息
在其它窗体创建的时候改变它
你可以定义一个TFONT的变量，要不是它的父类型也可以
定义
afont : TFONT;
使用时
Form1.font.assgen(afont)s

 

幻

幻世星龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #3

最后哪个s是打错了

 

S

sandal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #4

这个方法理论上可行, 我原来也是这样想, 但担心每次打开FORM都要多执行几行代码, 会
耗多些资源, 还有其它方案吗?

 

L

LongHai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #5

把所有的子窗体的ParentFont属性设置为True，然后程序运行时你只要设置主窗体的就可，当然你在创建窗体时也要把窗体的Owner设置为主窗体！试试看

 

S

shiningstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-14

• #6

nod.同意楼上。这个方法最简便。