K
knwang
Unregistered / Unconfirmed
GUEST, unregistred user!
dephi中新建一个form时，form和控件上的默认字体是Ms serif，能不能让这个默认字体改成宋体。。
S
stlont
Unregistered / Unconfirmed
GUEST, unregistred user!
到delphi目录下的suorce下，改源码，一劳永逸。
简单点可以打开控件的parentFont, 只要改form的font
就全部跟着改。（可拉圈或按shift选多个控件，一次性改parentFont)
简单点可以打开控件的parentFont, 只要改form的font
就全部跟着改。（可拉圈或按shift选多个控件，一次性改parentFont)
K
knwang
Unregistered / Unconfirmed
GUEST, unregistred user!
能不能详细一点啊，源文件是什么名啊，第二个方法就免了。
Z
zag2000
Unregistered / Unconfirmed
GUEST, unregistred user!
最好的方式是自己从TForm继承一个新类TNewForm，在TNewForm的Create事件中写：
constructor TNewForm.Create(AOwner: TComponent);
begin
inherited;
Self.Scaled := False;
Self.Font.Name := '宋体';
Self.Font.Size := 9;
end;
然后你的所有工程中的Form都从TNewForm继承就可以了。
constructor TNewForm.Create(AOwner: TComponent);
begin
inherited;
Self.Scaled := False;
Self.Font.Name := '宋体';
Self.Font.Size := 9;
end;
然后你的所有工程中的Form都从TNewForm继承就可以了。
K
knwang
Unregistered / Unconfirmed
GUEST, unregistred user!
to:stlont,zag2000
我是想改掉Delphi的默认的字体，
因为如果你用inputbox()函数的话，
那上面的提示文字的字体不知如何更改，
只能接受默认字体。
请问有办法吗？
我是想改掉Delphi的默认的字体，
因为如果你用inputbox()函数的话，
那上面的提示文字的字体不知如何更改，
只能接受默认字体。
请问有办法吗？
E
emoth
Unregistered / Unconfirmed
GUEST, unregistred user!
你可以找到拥有Inputbox()函数的PAS单元，为了安全，最好将Inputbox()函数拷贝到你的程序单元
中，将其默认的字体设为宋体，大小设为9，然后另取一个新名字如NEWINPUTBOX，最后在程序运行时调用这个新名。
需要注意，要拷贝的不只是Inputbox()一个函数，还有它所调用的其它几个函数（好象有3个吧，我曾经试过，记不清了）
能成功的，你试试吧。
中，将其默认的字体设为宋体，大小设为9，然后另取一个新名字如NEWINPUTBOX，最后在程序运行时调用这个新名。
需要注意，要拷贝的不只是Inputbox()一个函数，还有它所调用的其它几个函数（好象有3个吧，我曾经试过，记不清了）
能成功的，你试试吧。
小
小小K
Unregistered / Unconfirmed
GUEST, unregistred user!
查找以前的贴子，在注册表里有得改，改后每次新建窗口也会默认字体宋体的。
K
knwang
Unregistered / Unconfirmed
GUEST, unregistred user!
to 小小K:
能详细点吗？
to emoth:
能解决inputbox问题，不过好像太麻烦，要拷贝，还要改定义。能更简便一点，
适应函数多一点可以吗？
能详细点吗？
to emoth:
能解决inputbox问题，不过好像太麻烦，要拷贝，还要改定义。能更简便一点，
适应函数多一点可以吗？
E
emoth
Unregistered / Unconfirmed
GUEST, unregistred user!
要不你就单独建一个单元，将inputbox照此方法重写，以后只需引用此单元就可以了，只是第一次比较麻烦。
用不用随你了 ^_^
用不用随你了 ^_^
K
knwang
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么直接改dialog.pas源文件后，不能编译，也不能用到新的程序中去？
小
小小K
Unregistered / Unconfirmed
GUEST, unregistred user!
把下列东东导入注册表就可以了：[
]
[HKEY_CURRENT_USER/Software/Borland/Delphi/5.0/FormDesign]
"DefaultFont"="宋体,9"
你在Delphi中新建出来的Form默认字体就是宋体9号了。
D7好像不能用。
http://www.delphibbs.com/delphibbs/dispq.asp?LID=646143
] [HKEY_CURRENT_USER/Software/Borland/Delphi/5.0/FormDesign]
"DefaultFont"="宋体,9"
你在Delphi中新建出来的Form默认字体就是宋体9号了。
D7好像不能用。
http://www.delphibbs.com/delphibbs/dispq.asp?LID=646143
K
knwang
Unregistered / Unconfirmed
GUEST, unregistred user!
行了，谢了，小小K，还有emoth，分数不多，呵呵不好意思了。
K
knwang
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
