请教：如何更改Form的缺省字体？(50分)

J

JoyHero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #1

在Delphi的IDE中新建一个窗体，其缺省字体为“MS Sans Serif”，
如何才能让Delphi新建窗体的缺省字体为“宋体”呢？是不是要
修改VCL的源文件？修改后又如何让它生效呢？

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #2

Form不是有一个Font属性吗？

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #3

delphi注册表的基本键值：
HKEY_CURRENT_USER/Software/Borland/Delphi/4.0
1、改变属性编辑器颜色
对应键值{basekey}/Globals/PropValueColor
可以改成graphics.pas中的字符常数
如clred,clblue...
2、控件面板的自动选择
对应{base key}/Extras/AutoPaletteSelect
值为1时有效，0时无效。
3、控件面板的自动滚动
对应{base key}/Extras/AutoPaletteScroll
值为1时有效，0时无效
4、改变Form的缺省字体
对应{basekey}/FormDesign/DefaultFont
值Arial,10,Bold

 

J

JoyHero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #4

谢谢卷起千堆雪tyn，我看了一下注册表，HKEY_CURRENT_USER/Software/Borland/Delphi/5.0/FormDesign/下没有DefaultFont这个键值，
我自己添加进去后，打开Delphi并新建窗体没有任何改变，还是“MS Sans Serif“为缺省字体。
我查看Graphics.pas这个单元，找到以下的内容：
var // New TFont instances are intialized with the values in this structure:
DefFontData: TFontData = (
Handle: 0;
Height: 0;
Pitch: fpDefault;
Style: [];
Charset : DEFAULT_CHARSET;
Name: 'MS Sans Serif');
修改这个缺省字体变量，保存，依然没有效果。

 

W

windea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #5

同意YB_unique

在Form的font里改成宋体9号

 

J

JoyHero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #6

To YB_unique:
呵呵,我问的不是如何去修改Form的Font属性,我正是因为不愿意每次新建一个窗体就去修改
它的Font属性,所以才希望在Delphi新建窗体时缺省就是我想要的字体.

 

H

hunyuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #7

9494，答非所问，这个是大家都没有解决的问题[?]

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #8

我是这样做的只要简单的做一次就行了。

首先新建一个工程，将Form的字体改为9号宋体，保存！
右键单击Form，选：Add To Repository 弹出窗口中加个名称(如：MyForm)，放到Form页
从菜单Tools->Repository,选择From选项，点Myform, 将NewForm和MainForm勾选。

OK！

 

L

ly_chuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #9

我有一个笨方法
先到文件夹fonts里把 “MS Sans Seri”和“宋体”复制一份到其他的
文件家里再 把“宋体”的文件明改为“MS Sans Seri”的文件名。最后把改好名字的
“宋体”再复制到文件夹fonts里,over.

 

L

lincgroup

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #10

redsky.1的方法可以啊。
ly_chuan的方法也可以的。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #11

卷起千堆雪tyn已经回答了你的问题！　我以前也回答过这样的问题。[!]
对应{basekey}/FormDesign/DefaultFont “宋体,9”
注意是新建一个项，不是在原来的“Form Design”下加

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #12

修改后重启Delphi就行了。

 

J

JoyHero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #13

接受答案了