Delphi 动态加载字体

  • 函数类型: 自定义函数

  • 函数说明:

动态加载字体


  • 代码如下:



 procedure sys_AddFont(fontFileName: string);
begin
  AddFontResource(Pchar(fontFileName));
  SendMessage(Application.Handle, WM_FONTCHANGE, 0, 0);
end;

procedure sys_RemoveFont(fontFileName: string);
begin
  RemoveFontResource(Pchar(fontFileName));
  SendMessage(Application.Handle, WM_FONTCHANGE, 0, 0);
end;



  • 用法示例:

无 



《学习大师原创文档,请勿转载,侵权必究》





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678