100分，DELPHI 默认设置问题！

这样：
你可以在Tools->Editer Options->Display->Edit Font里面改变字体

同意-> love4cz(^_^)(丑丑)(^_^) 所说的.
其实很简单的一个问题.

在Tools->Editer Options->Display->Edit Font里面改变字体

在Tools->Editer Options->Display->Edit Font好象是改变不了默认值吧！
关注！！

曾经试着改过Graphics单元的
DefFontData: TFontData = (
    Handle: 0;
    Height: 0;
    Pitch: fpDefault;
    Style: [];
    Charset : GB2312_CHARSET;
    Name: '宋体');
其实，一点没有必要，从TForm继承一个窗体，设置好Font,然后每次从它继承就行了，当然，如果能找到简单的设置就更好了，我没找到

所有楼上的都理解错了吧，我理解 w010 (草上飞) ，我也想知道怎么设。他的意思是：如何在DELPHI环境中或其它什么设置中设置好，在你新建窗口时，FORM的字体属性自动是你设的那种。哎，我也不知道，UP

通过添加下面一个注册表键值，就能实现：在新建窗体上添加组件时，自动设置组件的默认字体[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\FormDesign]
"DefaultFont"="宋体,9,Bold"

这些属性是为每个组件提供的，不同的组件可采用不同的设置法。
要改变窗体的这些属性可有两种办法：
1。在设计时改变：利用左边的object inspector|properties页下的FONT项，双击FONT左边的“+”号标记，就可以看到font的Name、Height、 Color、 Style
等属性。一一设置之即可。
2。在运行时改变：这通常是放在form的OnCreate事件中设置的。具体步骤如下：选择object inspector|events页下的form的OnCreate事件,然后九是写上你所指出的那些参数即可，例如：
  Font.Color := clRed；
  Font.Height :=12；
  Font.Name := '黑体'；
  Font.Style := [fsBold,fsItalic]；
就可把DELPHI默认字体改为红色、12点、粗、斜黑体。

to humer(humer)
呵呵，是啊，如果你把菜单里Tools->Editer Options->Display->Edit Font
的字体改变了，你自己看看字体效果，如果你把Tools->Editer Options->Display->Size改变了，你看看字体大小、、、嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻不说了，走人嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻

自己修改一下窗体属性，然后右键Add to Repository设为模板就是了，下次新建窗体时选择你自己的模板就OK了。

咳，我是说jixinfa(DELHPI程序员)，newwen(玩一会儿)说得对。

williexu(眼镜咪)， jixinfa(DELHPI程序员)，bob7946(X度空间) 你们说的不对：
你们那么做是改变编辑器中的字体等，而不是from本身的FONT属性，你们的理解能力怎么这么差呀！

新建一窗体，DELPHI 的默认字体为
Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
如何能改变它，如 Font.Name = '宋体'
的具体意思是在TFORM 设计期自动改变其默认值，如 humer(humer)的意思！
当然通过改变其
Graphics单元的
DefFontData: TFontData = (
    Handle: 0;
    Height: 0;
    Pitch: fpDefault;
    Style: [];
    Charset : GB2312_CHARSET;
    Name: '宋体');
是可以在运行期来实现的，如NEWWEN 所说，但不可在设计期实现。
//////////////////////////////////////////////////////////
我遇到的具体问题是：
在WIN2000下 InputBox(const ACaption, APrompt, ADefault: string): string;但APrompt的字体不能完全出现，我知道这是个老问题，关键是怎样解决它！通过Graphics单元的
DefFontData: TFontData = (
    Handle: 0;
    Height: 0;
    Pitch: fpDefault;
    Style: [];
    Charset : GB2312_CHARSET;
    Name: '宋体');
是可以实现默认TFONTDATA.NAME 的改变而实现它，但改变FONT.SIZE 我不知如何实现他，
TLogFontA的类型为
tagLOGFONTA = packed record
    lfHeight: Longint;
    lfWidth: Longint;
    lfEscapement: Longint;
    lfOrientation: Longint;
    lfWeight: Longint;
    lfItalic: Byte;
    lfUnderline: Byte;
    lfStrikeOut: Byte;
    lfCharSet: Byte;
    lfOutPrecision: Byte;
    lfClipPrecision: Byte;
    lfQuality: Byte;
    lfPitchAndFamily: Byte;
    lfFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;
没有SIZE 属性
个控件的FONT。SIZE 在Graphics单元的又是通过
function TFont.GetSize: Integer;
begin
  Result := -MulDiv(Height, 72, FPixelsPerInch);
end;procedure TFont.SetSize(Value: Integer);
begin
  Height := -MulDiv(Value, FPixelsPerInch, 72);
end;
来实现的
仍不知如何实现，请各位深入VCL的高手帮忙！
100分等给！

w010 (草上飞) ：楼上有一个修改注册表的，是可以的！
至少有N种方法可以做到改变Form的默认字体：
1:修改注册表，同楼上的。可惜不能改变默认的Char_set
2：用对象模板，拟建立一个修改好的Form，然后添加到对象仓库即可，以后每次用New-->New Item对话框来选择即可。
3：写一个小控件.......

调试易

100分，DELPHI 默认设置问题！

解决方案 »