转自何语的空间 http://blog.youkuaiyun.com/formiss/archive/2007/05/30/1630679.aspx
终于搞定了Delphi的Unicode支持(Tnt控件) 收藏
原来是要在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;
这样就可以很好的实现对各种语言字体的支持了.
经验总结:
凡事还是用心去做,都会有异想不到的收获的.
本文来自优快云博客,转载出处:http://blog.youkuaiyun.com/formiss/archive/2007/05/30/1630679.aspx