Dephi的默认字体到哪改？(10分)

  • 主题发起人 主题发起人 knwang
  • 开始时间 开始时间
K

knwang

Unregistered / Unconfirmed
GUEST, unregistred user!
dephi中新建一个form时，form和控件上的默认字体是Ms serif，能不能让这个默认字体改成宋体。。
 
到delphi目录下的suorce下，改源码，一劳永逸。
简单点可以打开控件的parentFont, 只要改form的font
就全部跟着改。（可拉圈或按shift选多个控件，一次性改parentFont)
 
能不能详细一点啊，源文件是什么名啊，第二个方法就免了。
 
最好的方式是自己从TForm继承一个新类TNewForm，在TNewForm的Create事件中写：
constructor TNewForm.Create(AOwner: TComponent);
begin
inherited;
Self.Scaled := False;
Self.Font.Name := '宋体';
Self.Font.Size := 9;
end;
然后你的所有工程中的Form都从TNewForm继承就可以了。
 
to:stlont,zag2000
我是想改掉Delphi的默认的字体，
因为如果你用inputbox()函数的话，
那上面的提示文字的字体不知如何更改，
只能接受默认字体。
请问有办法吗？
 
你可以找到拥有Inputbox()函数的PAS单元，为了安全，最好将Inputbox()函数拷贝到你的程序单元
中，将其默认的字体设为宋体，大小设为9，然后另取一个新名字如NEWINPUTBOX，最后在程序运行时调用这个新名。

需要注意，要拷贝的不只是Inputbox()一个函数，还有它所调用的其它几个函数（好象有3个吧，我曾经试过，记不清了）

能成功的，你试试吧。
 
查找以前的贴子，在注册表里有得改，改后每次新建窗口也会默认字体宋体的。
 
to 小小K:
能详细点吗？

to emoth:
能解决inputbox问题，不过好像太麻烦，要拷贝，还要改定义。能更简便一点，
适应函数多一点可以吗？
 
要不你就单独建一个单元，将inputbox照此方法重写，以后只需引用此单元就可以了，只是第一次比较麻烦。
用不用随你了 ^_^
 
为什么直接改dialog.pas源文件后，不能编译，也不能用到新的程序中去？
 
把下列东东导入注册表就可以了：[:)]

[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，还有emoth，分数不多，呵呵不好意思了。
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

S
[教程]QWorker 中如何动态修改重复延迟作业的延迟间隔
回复
0
查看
805
swish
S
X
使用kbmmw 的调度事件动态显示时间 - xalion
回复
0
查看
959
xalion
X
S
[教程]使用泛型为 Delphi 提供一个位运算的模板支持
回复
0
查看
939
swish
S
S
[教程]在你的程序中使用 FontAwesome 字体
回复
0
查看
848
swish
S
S
[原]Delphi2010中DataSnap高级技术(4)—TCP keepAlive和KeepAliveInterval参数详解
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部