怎样设置:Table1.FieldByName('name').DisplayLabel:="姓名" 中“姓名”的字体？(50分)

GBlueMan · 2001-05-31

我想通过用：
Table1.FieldByName('name').DisplayLabel:="姓名"
使得数据库中的英文字段在DBGrid中显示为中文，但发现字体很小，请问怎么改变字体大
小？

另外我想问：在Delphi中当我编程编到一半的时候我想改变窗体的名称（name），直接改
会出错，请问如果我想改，该怎么改？

老赵 · 2001-05-31

1.恐怕你得在dbgrid上想办法了.推荐使用ehlib可改标题字体字号等.
2.不能吧?

nnhww · 2001-05-31

在DBGrid中的TitleFont改就可以了。

GBlueMan · 2001-06-02

谢谢，
老赵能否再回答我一个问题？
问题如下：
我打算在Color.ini文件中保存我设定的字体颜色，但当我用以下代码取出以前保存的字体
颜色时，其返回的值却总是：clYellow .为什么？以下的代码有错误吗？

ColorType:='clYellow';
GetPrivateProfileString('FontColor','Color','clYellow',ColorType,256,'./color.ini');
Label1.Font.Color:=StringToColor( ColorType );
Label2.Font.Color:=StringToColor( ColorType );
Label3.Font.Color:=StringToColor( ColorType );
你的QQ好是多少，我的是8992972
想和你聊聊。

alac · 2001-06-02

*.ini 的路径默认为Windowsr的目录，获取当前程序的目录请用：

Path:=ExtractFilePath(ParamStr(0));
在Delphi5.0的帮助中，我找不到函数GetPrivateProfileString()
所以也不清楚函数的功能

GBlueMan · 2001-06-02

alac :
在Delphi5.0中肯定有GetPrivateProfileString这个函数，我查过并且用了，不过结果
却不对，ini文件一定要放到|Windows中吗？
请告诉我的代码有错误吗？

alac · 2001-06-03

我一直的用Tinifile，我发现当不指定绝对路径时，都在windows目录下查找ini文件，
GetPrivateProfileString后来我找到了，试过了，出现了与你同样的结果，有一点可以
肯定的，函数调用失败，只能返回缺省值'clYellow'。
为什么你不用Tinifile来访问了？

book523 · 2001-06-03

把ini文件建在程序文件同一路径下，用下列语句就行

Path1:=ExtractFilePath(ParamStr(0));
GetPrivateProfileString('FontColor','Color','clYellow',ColorType,256,path1+'/color.ini');

GBlueMan · 2001-06-04

谢谢各位,不过分数有限我怎么分呢?多劳多得吧!

GBlueMan · 2001-06-04

结束讨论

怎样设置:Table1.FieldByName('name').DisplayLabel:="姓名" 中“姓名”的字体？(50分)

GBlueMan

Unregistered / Unconfirmed

老赵

Unregistered / Unconfirmed

nnhww

Unregistered / Unconfirmed

GBlueMan

Unregistered / Unconfirmed

alac

Unregistered / Unconfirmed

GBlueMan

Unregistered / Unconfirmed

alac

Unregistered / Unconfirmed

book523

Unregistered / Unconfirmed

GBlueMan

Unregistered / Unconfirmed

GBlueMan

Unregistered / Unconfirmed

Similar threads