Delphi中使用自定义字体


本文整理自网络,侵删。

 delphi关于加载自定义字体的办法:
很简单地在单元文件中的 initialization和finalization块中加入一句代码即可,比如要使用'Ksphonet.TTF'字体,实现如下:
……
……
initialization
if FileExists('Ksphonet.TTF') then AddFontResource('Ksphonet.TTF')
else MessageBox(0,'找不到字体文件Ksphonet.TTF,无法正常显示字体,'严重错误',MB_OK+MB_ICONERROR);
finalization
RemoveFontResource('Ksphonet.TTF');
end.

相关阅读 >>

Delphi创建证书密钥库文件

Delphi 通得进程id获取主窗口句柄

Delphi 匹配中文的正则表达式

Delphi access存储过程是带参数的查询语句

Delphi image 直接加载资源文件

Delphi 合并文本行的函数

Delphi文件复制函数

Delphi关于dbgrid和webbrowser的焦点问题

我的Delphi开发经验谈

Delphi xe 安卓开发黑屏的另一种解决办法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...