原来是要在FormCreate中加入以下代码:
procedure TTntForm1.TntFormCreate(Sender: TObject);
begin
//这句很关键.对于平台的支持.
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
end;
这样就可以很好的实现对各种语言字体的支持了.
经验总结:
凡事还是用心去做,都会有异想不到的收获的.
本文介绍了一种在不同Windows平台上实现字体适配的方法,在FormCreate事件中通过判断操作系统的平台类型来设置字体名称,从而确保应用程序能正确显示各种语言的文字。
2004

被折叠的 条评论
为什么被折叠?



