本文整理自网络,侵删。
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 d10.x 安卓app开发中按返回键后程序不退出程序的方法
Delphi idhttp中设置非标准头信息和读写cookie
Delphi leftstr 返回字符串左边指定个数的新字符(串)
更多相关阅读请进入《Delphi》频道 >>