Delphi的Unicode支持(Tnt控件)

Delphi的Unicode支持(Tnt控件)

2007-05-30 10:42 1807人阅读 评论(0) 收藏 举报

原来是要在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;

 

这样就可以很好的实现对各种语言字体的支持了.