如何改变Delphi的新建窗体默认值?(50分)

  • 主题发起人 主题发起人 LuJuhe
  • 开始时间 开始时间
L

LuJuhe

Unregistered / Unconfirmed
GUEST, unregistred user!
比如我想让新建的form字体都是“宋体9”,要改哪里?
 
要改VCL源码吧,不过建议不要这样

我的建议,建一个基类,所有其它窗体从这个类继承,这样想怎么改就怎么改了
 
在程序的FormShow事件中加如下代码
self.Font.Name := '宋体' ;
self.Font.Size := 9 ;
self.Font.Charset := GB2312_CHARSET ;

 
在注册表里,我一时忘了那个键值了。你先自己找找。我看到了再贴。
 
正确的方法应该是定制对象库,也就是在File-->New...所打开的这个对象库中建立一个程序
模板。

操作步骤大致如下:
1. 新建一目录,这个目录以后不能随便删除,所以最好建在Delphi的安装目录下
2. 启动Delphi,新建一工程,将Form1的字体、字号、字符集设为你所需要的,保存工程至
上一步建立的那个目录下。
3. 在Form1上单击鼠标右键,在弹出菜单中选择“Add to Repository”,在对话框中分别
添好Title(模板名称)、Description(描述文字)、Page(模板加到哪一页)、Author
(作者),你还可以通过Browse...选择一个自己喜欢的图标,完成后,单击OK
4. 在Delphi的IDE中,Tools-->Repository...,在Object Repository对话框中找到你刚才
新建的那个模板,然后选中New Form和Main Form,目的是你以后只要新建工程和窗体,都
使用这个模板,单击OK
大功告成,你现在可以新建一个工程,试一试,是不是很爽啊! :-)

5. 后续工作。
用资源管理器打开../Borland/Delphi5/Bin这个目录,以“修改时间”排序,你会发现刚才
delphi32.dro这个文件被修改了,用文本编辑器打开此文件,在文件末尾你会看到刚才新建
的模板。
所以,你只需想此文件和上面第一步中建立的目录保存好,下次重装Delphi的时候,再拷到
相应的目录中,即可。

--------------------------------------------------------------------------------
用这样的方法还可以保存代码模板(就是使用Ctrl+J写代码的那个功能),文件是delphi32.dci;
新建菜单模板,文件是delphi32.dmt
 
改注册表
HKEY_CURRENT_USER/Software/Borland/Delphi/5.0

Here you will add a new key called FormDesign (with no space). To do right click on the 5.0 and chose New | Key. Name the key FormDesign. Now right click on this new key and choose New | String Value. Name this string value DefaultFont (no space). Now right click on this new string value entry in the right window and choose Modify. Enter the name of the default font you would like, followed by a comma and the default size. For example:
Arial,10
Now the next time you open Delphi this should be the default font for your forms. You can even go a little further with this if you wish by adding other font properties such as

Arial,10, bold, italic

 
HD_Copy的做法可行,不过要保存这么几个文件总是有点不爽。
狄克的做法也可行,这才是我想要的。

其他的来者有分,呵呵,不成敬意。
 
多人接受答案了。
 

Similar threads

回复
0
查看
978
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
911
DelphiTeacher的专栏
D
后退
顶部