TMS Unicode Component Pack控制组件能让你在不终止Delphi、C++Builder或Windows 95/98/ME的情况下利用Windows NT/2000/XP/2003/Vista的Unicode功能开发应用程序。

注意：这些控制组件不会将Unicode功能添加到Windows 95/98/ME。它们可在所有Windows的32位版本上运行，但是它们只在Windows NT/2000/XP/2003/Vista上支持Unicode。

• 替代Unicode的超过60种直接VCL控制组件可启用你的应用程序
• Unicode启用Delphi/C++Builder对象检测程序
• Unicode启用提示
• Unicode启用行为
• 与几乎所有的IME兼容
• 支持只具备Unicode的环境
• 在表格上正确地展开WideString属性

包含的控件

标准

• TTntMainMenu
• TTntPopupMenu
• TTntLabel
• TTntEdit
• TTntMemo
• TTntButton
• TTntCheckBox
• TTntRadioButton
• TTntListBox
• TTntComboBox
• TTntScrollBar
• TTntGroupBox
• TTntRadioGroupBox
• TTntPanel
• TTntActionList

附加

• TTntBitBtn
• TTntSpeedButton
• TTntStringGrid
• TTntDrawGrid
• TTntImage
• TTntShape
• TTntBevel
• TTntScrollBox
• TTntCheckListBox
• TTntSplitter
• TTntStaticText
• TTntControlBar
• TTntLabeledEdit
• TTntMaskEdit

Win32

• TTntTabControl
• TTntPageControl
• TTntRichEdit
• TTntTrackBar
• TTntProgressBar
• TTntUpDown
• TTntDateTimePicker
• TTntMonthCalendar
• TTntTreeView
• TTntListView
• TTntPageScroller
• TTntStatusBar
• TTntToolBar
• TTntTrayIcon

数据控制

• TTntDBGrid
• TTntDBText
• TTntDBEdit
• TTntDBComboBox
• TTntDBCheckBox
• TTntDBRichEdit
• TTntDBLookupComboBox
• TTntDBLookupListBox

系统

• TTntPaintBox

会话

• TTntOpenDialog
• TTntSaveDialog
• TTntTaskDialog
• TTntFindDialog
• TTntReplaceDialog

其它

• TTntForm
• TTntFrame
• TTntStrings
• TTntStringList
• TTntFileStream
• TTntResourceStream
• TTntRegistry
• TTntIniFile
• TTntClipboard

Delphi IDE加强

• TWideStringProperty
  [preD2005]
• TWideStringListProperty

小提示：

1）将Unicode文本设置为表格标题

首先，在表格说明里数据结构TForm到TTntForm，例如：

TMyForm = class(TForm)

to

TMyForm = class(TTntForm)

(add unit TntForms when necessary)

然后确认你的系统显示设置，Windows标题字体是完全支持unicode字体的。

2）Unicode提示

Tnt Unicode控件拥有完全的widestring提示属性，通过属性可设置unicode提示文本。为确认提示是以Unicode格式显示，将应用程序提示窗口的数据结构设置为TntHintWindow，如：

HintWindowClass := TntHintWindow;

如果系统意识字体不支持unicode，你可以通过创建一个数据结构将它撤消：

TTntHintWindowEx = class(TTntHintwindow)
protected
procedure CreateWindowHandle(const Params: TCreateParams); override;
end;

{ TTntHintWindowEx }

procedure TTntHintWindowEx.CreateWindowHandle(const Params: TCreateParams);
begin
inherited;
Canvas.Font.Name := 'Arial Unicode MS';
end;

然后设置：

HintWindowClass := TntHintWindowEx;