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 注释方法

Delphi 利用驱动最简单结束进程的方法

Delphi idftp 使用被动连接

Delphi webbrowser1 设置获取编码

Delphi用ado操作数据库完整示例

Delphi android调用授权管理打开通知监听服务

Delphi 屏幕拷贝程序的源代码

Delphi实现文件拖放代码

Delphi 列出dbgrideh被选中的值

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



打赏

取消

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

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

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

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

评论

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