本文整理自网络,侵删。
在《桌面记单词》文里漏了一段,关于加载自定义字体的办法:
很简单地在单元文件中的 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 将 html 代码直接加入到 twebbrowser 组件中去
decodedate:从一个tdatetime变量中提取年、月、日数值
手动创建和部署一个classes.dex 查看更多关于 classes.dex 的文章 文件
更多相关阅读请进入《Delphi》频道 >>