怎以安装字体!急用! 怎以安装字体!急用!比如我想加一个Kkkkk.ttf字体,我该怎么办 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Screen.Fonts是一个TStrings对象,用IndexOf('文鼎彩云繁')方法可以知道是否安装了新字体。如果没有安装,则安装新字体: AddFontResource('c:\YouyFontFile.ttf'); SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 ); AddFontResource(PChar(ExtractFilePath(Application.ExeName)+'Kkkkk.ttf'));SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );不用问这么多遍吧,我都答了三遍了 第1行:","附近有语法错误 关于一个输入查询问题. 配置adoquery的active属性的时候,为何提示缺少sql语句? DELPHI学到什么程度才能出去混饭吃? delphi xe生成的exe文件怎么这么大?高手们有没有办法? 建模工具! 关于Delphi6中的Panel托放问题。 如何改变整个系统中文字的字体? 关于dbgride的问题 DELPHI 连接ACCESS 2000 奇怪现象!一定送高分 怎以安装字体!急用! 怎以安装字体!急用!
方法可以知道是否安装了新字体。如果没有安装,则安装新字体:
AddFontResource('c:\YouyFontFile.ttf');
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
SendMessage( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
不用问这么多遍吧,我都答了三遍了