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 tstrings类的一些技巧

Delphi mscomm控件串口收发程序

Delphi listview基本用法大全

Delphi speedbutton按钮动态加载图片（从image和imagelist）

Delphi closefile 关闭文件

Delphi 提高unigui开发效率的两个方法

Delphi将文件的内容读取为字符串

了解Delphi过程类型/过程类型学习

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

转载请注明出处：木庄网络博客 » Delphi中使用自定义字体