终于搞定了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;

 

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

经验总结:

凡事还是用心去做,都会有异想不到的收获的.