delphi怎么嵌入字体?

我的程序里的字体比较罕有,有些机子里没有,于是显示效果大打折扣,有没有办法解决字体的问题(不要做成图片)?

解决方案 »

  1.   

    程序字体，我们自已选。
    也许我们可能对系统提供我们的字体不够知足，不时添加一些第三方漂亮字体，比如
    文鼎系列，但这样话，假如你设计程序label属性fontname选择了文鼎淹水体,那么程序
    运行到不同的平台，字体就会改回宋体，所以把自己喜欢的字体带在程序里不就好了。
    其实这也很简单，用到addfontresource加载字体，和removefontresource卸载字体。字体放在c盘，记住在font属性的filename字体名，不是文件名，像下面的字是体文鼎淹水体。
    Initialization//初始化时
      AddFontResource('c:\GYAN00E.ttf');
    Finalization//
      RemoveFontResource('c:\GYAN00E.ttf');
    当然你也可以把它做成资源文件加入自己的程序中，在这里不多说了。 资料引用:http://www.knowsky.com/335935.html
      

  2.   

    可参考我的BLOG文章：GDI+ 在Delphi程序的应用 -- FontCollection
      

  3.   

    发布的时候，把你的字体打包进去，让字体字装到windows font 目录不就行了