苦呀! 每加入 tTable 都要改字体 和 大小,有办法设定 D6 的缺省字体为“宋体”大小为“12”吗?(我知道这也烦着很多人,大家帮助 UP 一下) (3

  • 主题发起人 Pc 狂迷
  • 开始时间
P

Pc 狂迷

Unregistered / Unconfirmed
GUEST, unregistred user!
苦呀! 每加入 tTable 都要改字体 和 大小,有办法设定 D6 的缺省字体为“宋体”大小为“12”吗?(我知道这也烦着很多人,大家帮助 UP 一下) (35分)<br />苦呀! 每加入 tTable 都要改字体 和 大小,有办法设定 D6 的缺省字体为“宋体”大小为“12”吗?
DFW 中搜到的答案 是D5 的 D6找不到相应的项。
 
设置一下 form 的 font ,然后加控件。
 
这着个恐怕不行,但可以设好父的font,再在子中用parentfont:=true;
 
用程序处理好了。
 
将主窗体form的font设置一下,以后在主窗体和子窗体中加进去的label就是所设置的font
了。你现在也可以按住shift用鼠标点击所有的label,选中后改一下font就可以了。不用一个一个的改。
 
我也没有好办法,只能在新建工程的时候注意设置一下
 
同意jsxjd
 
if solve(Pc狂迷.问题) then begin
jsxjd.method and 卡色.method ;
end
 
我的做法是: 先设置 Form 的 Parentfont 属性为 True,然后再设置 Form.Font 字体属性,在这之后添加的控件的Font 属性大都会与 Form 的字体一样了。
但在 Delphi 6,如果这个设置的顺序相反就不会有效,之后添加的控件 Font 属性虽显示为 宋体-9,
但运行时控件的字体显示仍为 Arail,8 。

 
把这个代码做为控件安装一下,在 Form 上第一个控件放它就可以了。
你可以增加属性编辑器等方法,完善它。
{***************************************************************
* Unit Name: CnFont
* Purpose :
* Author : 小雨哥
* History :
****************************************************************}
unit CnFont;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs {,Dsgnintf};
type
TCnFont = class(TComponent)
private
FParent: TCustomForm;
FFont,FOldFont:TFont;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Standard', [TCnFont]);
end;
constructor TCnFont.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Exclude(FComponentStyle, csInheritable);
if csDesigning in ComponentState then
begin
FParent := TCustomForm(GetOwner);
FFont:=TFont.Create;
FOldFont:=TFont.Create;
FOldFont.Assign(FParent.Font);
with FFont do
begin
Name := '宋体';
Charset := GB2312_CHARSET;
Size := 12;
end;
FParent.Font.Assign(FFont);
end;
end;
destructor TCnFont.Destroy;
begin
FParent.Font.Assign(FOldFont);
FFont:=nil;
FFont.Free;
FOldFont:=nil;
FOldFont.Free;
inherited Destroy;
end;
end.

通过一些简单的添加,还可以指定某个类的控件改变特定属性。
 
一个一劳永逸的方法:

建立一个空的项目,保存到特定目录下,
设定窗体的字体属性,
将窗体加入对象仓库,
然后将项目也加入对象仓库,
然后,打开对象仓库,将窗体和项目设定为创建新的项目和窗体时默认使用,

之后,就再也不用去设置这个东西了
 
接受答案了.
 
顶部