adminysh

[系统应用] Delphi 引入自定义字体设置效果

AddFontResource(Pchar(ExtractFilePath(ParamStr(0)) + 'DS-DIGIB.TTF'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); { 通知系统更新字体消息}
lbl1.Font.Name:='DS-Digital';
#1楼
发帖时间:2014-2-24   |   查看数:0   |   回复数:0
游客组