TMS VCL UI Pack安装与使用指南：Delphi 13经典控件包实战

简介：面向Delphi与C++ Builder开发者的专业界面组件库，v13.5.6.0完整支持Delphi 7至13及C++ Builder 7至13，适合需要快速构建现代GUI、减少重复编码成本的开发者。压缩包共2000个文件，以502个Pascal源文件、239个DFM窗体与228个工程文件为主体，另含图标、图片、PDF说明与可安装示例，完整源码开放便于修改和学习，整体约123.56MB。这套组件集已有125位开发者下载学习。内容涵盖面板、表格、编辑器、树视图、列表视图及支持皮肤化定制的高级控件，通过文档和示例可快速接入多个IDE版本，对增强原生控件能力、统一界面风格并提升交付质量的团队有实用价值。

1. 从 DelphI 13 再看 TMS VCL UI Pack：这个经典控件包为什么还值得装

如果你的团队还守着 VCL 做桌面产品，又刚把 IDE 升到 Delphi 13，那多半会被同一个问题卡住：老界面在新系统上太丑，换框架又不现实。TMS VCL UI Pack 就是为这个场景准备的。它是一套覆盖网格、图表、计划表、富文本、仪表盘和现代按钮的 VCL 控件全家桶，标题里 v13.5.6.0 这个版本号意味着它从 Delphi 7 一路支持到 Delphi 13，C++Builder 同样可用，而且是带完整源码的 Full Source 版本。对还在用 VCL 干活的人来说，这套包能让你在不动架构的前提下，把界面和交互整体提一个档次，也适合接手老项目、想在不推倒重来的前提下完成 IDE 升级的团队。

2. 为什么选 TMS VCL UI Pack：VCL 生态里的“瑞士军刀”与选型边界

2.1 Delphi 13 时代还要不要继续用 VCL

先说一个可能让新手困惑的点：Delphi 13 出来以后，官方把很大精力放在跨平台和 64 位支持上，社区里也一直在讨论 Lazarus 和 Delphi 的差距。但现实是，大量存量管理系统、工业上位机、企业内部工具仍然是纯 VCL 桌面程序，这些项目跑在 Windows 上，界面交互要求不高不低，数据库连接和报表输出才是核心。对这些项目来说，换框架等于重写，而 VCL 在 Windows 下的成熟度、第三方控件生态和资料数量，仍然是最稳的选择。

我一般会这样判断：只要你的目标平台还是 Windows、交付物还是 exe、团队里没有人愿意花三个月重构界面，那 VCL 就是对的。Delphi 13 的 Community Edition 也能装第三方控件，并不影响 TMS VCL UI Pack 的使用，唯一的门槛是商业授权和源码许需要单独确认。VCL 控件的价值在于把高频 UI 功能封装成可拖拽的组件，你不需要关心重绘细节，只需要配置属性。

2.2 TMS VCL UI Pack 和 DevExpress、开源组件方案怎么选

在 Windows 桌面控件里，DevExpress VCL 和 TMS VCL UI Pack 是最常被摆在一起比较的两家。DevExpress 的特点是每个控件打磨得很深，尤其在网格和报表这两块，功能密度和性能都更强；TMS 的特点是覆盖面极广，一个包里塞进了几十种组件，从网格到图表到计划表到导航菜单都有，而且附带了大量 Demo 和源码。

我的使用体感是：如果项目 80% 的界面依赖一个超级网格，选 DevExpress；如果项目要的是整体现代化，各种组件都要一点，比如左侧导航栏、右上角通知气泡、中间一个多功能网格、底部状态条，那 TMS VCL UI Pack 更划算。开源方案也不是不行，VirtualTreeView 加自绘框架能把界面做得非常极致，但代价是所有交互细节都要自己实现，打个比方，就像自己砌墙和买精装房的区别。

2.3 Full Source 意味着什么

标题里“Full Source”这四个字是这套包最有价值的地方。很多商业控件只给 dcu 编译产物，运行时出了问题只能黑盒排查。TMS 这套给了全部 .pas 源码，意味着三件事：第一，编译报错时可以直接定位到 TMS 自己的代码行，而不是只看到一个不明不白的链接错误；第二，你可以给控件加自己的公开属性或方法，比如给 TAdvStringGrid 增加一个导出 CSV 的扩展方法，直接改源码后重新编译即可；第三，调试时按 F11 能跟进到控件内部的重绘和消息处理逻辑，这对排查界面卡顿或者显示异常非常有用。

不过这里要说明一下，Full Source 不等于“拿到就能随便改”。如果你改了源码再分发，协议上通常要求保留版权声明，这个要在采购时和厂商确认清楚。常见的做法是源码照装、版本不魔改，只在确实需要定制时才动源码，并且单独维护一个分支。

2.4 这套包到底包含哪些东西

TMS VCL UI Pack 的组件清单很长，它内部按功能分了若干模块。用一张表来看它最核心的几类组件，方便你评估是否覆盖自己的需求。

以上这些只是其中一部分，实际安装后在组件面板上会看到十几个 TMS 分页。我的建议是不要想着把所有组件都用上，先挑一个核心控件吃透，例如网格，其他组件在真正需要时再看 Demo 照搬。

3. 把 Full Source 装进 IDE：编译顺序、路径配置与最小化验证

3.1 装之前先看清楚目录结构

大多数 TMS 控件包的压缩包解压之后，目录结构是：source 存放全部单元源码，packages 存放针对不同 IDE 版本的包工程文件，builder 或 install 目录放安装向导，examples 放示例工程，styles 放皮肤文件。标题里写的是 for Delphi & CB 7-13，这意味着 packages 目录下通常会按 IDE 版本分子目录，比如 d7、d10、d11、d12、d13，或者用带版本号的文件名来区分。

这里有个新手最容易踩的坑：直接双击默认的 dpk 文件编译，结果编译器版本和包工程不匹配，报一大堆 Find 错误。我一般会先看根目录的 README 或 install.txt，确认当前版本对应的子目录，找不到说明文档时，就把 packages 目录整体列出来，按文件名里的版本号判断。编译前还要先确认 IDE 的库路径，也就是 Tools > Options > Environment Options > Delphi Options > Library 里的路径设置，把已经安装的其他控件路径保留好，不要把 TMS 的 source 路径加错位置。

3.2 用命令行编译 dpk：既能装包也能救命

多数人装控件的方式是打开 dpk 文件，在 IDE 里右键 Compile，然后 Install。这个操作没问题，但当你需要反复重装、或者升级 IDE 后批处理构建时，命令行方式更高效。以 Windows 为例，先调用 IDE 自带的 rsvars.bat 设置编译环境，再调用 dcc32.exe 编译包文件。一个最小化的批处理脚本如下：

@echo off call "C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\rsvars.bat" set TMS_ROOT=D:\Components\TMSVCLUIPack set OUT_DIR=%TMS_ROOT%\lib\win32 set SRC_DIR=%TMS_ROOT%\source dcc32.exe -Q -B -E"%OUT_DIR%" -U"%SRC_DIR%" -R"%SRC_DIR%" "%TMS_ROOT%\packages\d13\TMSVCLUIPack.dpk"

脚本里的 rsvars.bat 负责把 dcc32.exe 的路径和 IDE 的默认库路径注入到当前控制台环境，这样后面执行 dcc32 时才不会提示找不到命令。-Q 是静默模式，减少输出；-B 表示强制全部重新编译，避免增量编译带来的脏 dcu 残留；-E 指定编译输出目录，里面放的是 dcu 和 bpl；-U 和 -R 分别设置单元搜索路径和资源搜索路径，都指向 source 目录。路径里有空格时一定要加引号，这是命令行方式最容易翻车的地方。

3.3 运行期包和设计期包的区别

Delphi 的控件包分两种：运行期包和设计期包。运行期包的名字通常不带 dcl 前缀，比如 TMSVCLUIPack.bpl，它负责在程序运行时提供单元实现，程序编译时需要引用里面的单元；设计期包的名字通常以 dcl 开头，比如 dclTMSVCLUIPack.bpl，它负责把控件注册到 IDE 的组件面板上，让你在设计界面时能够拖拽。

安装顺序不能反：先编译运行期包，再编译设计期包。如果你只装了运行期包，编译程序没问题，但组件面板上什么都没有；只装了设计期包，反过来会出现 IDE 找不到运行期包的错误。实际操作时还有一个细节：如果把 TMS 包编译成 bpl，那么发布程序时必须带上对应的 bpl 文件，或者在项目里设置 Link with runtime packages 为 false，并把需要的单元静态编进 exe。我的习惯是 IDE 里安装用设计期包，编译程序时静态链接，省去分发 bpl 的麻烦。

3.4 快速验证安装成功

安装完成后别急写业务代码，先做一个最小验证：新建 VCL Forms 项目，在组件面板上找 TMS 分页，确认能看到刚才装的设计期包控件。拖一个 TAdvStringGrid 到窗体上，直接按 F9 编译运行。编译通过并且窗体正常显示，说明运行期链路是通的。如果这一步就报错，最常见的是缺少某个单元，或者是 IDE 的 Library Path 没有加 TMS 的 source 目录。

再往后，打开 examples 目录里任意一个官方 Demo，尝试编译运行。官方 Demo 通常用到了很多组件属性，能编译通过就说明大部分控件注册正常。我遇到过一次组件面板正常但 Demo 编译失败的情况，原因是对应的 Demo 工程使用了老版本单元名，后来发现是 packages 目录里选错了 IDE 版本，重新编译对应分支就解决了。

3.5 IDE 位数的匹配问题

Delphi 13 默认支持 32 位和 64 位编译目标，IDE 本身多数情况下是 32 位进程。如果你用 64 位 Windows 下的 Delphi 13 打开包文件，需要注意编译目标平台要选 Win32，因为设计期包必须注册到 32 位的 IDE 进程里。运行期包则可以同时编译 Win32 和 Win64 两个版本，工程里会根据目标平台自动选择对应 dcu。很多新人在这里翻车：编译 64 位版本的运行期包成功了，但 IDE 组件面板不显示控件，其实就是设计期包编译成了 64 位，IDE 加载不了。

我的处理方式是：设计期包固定在 Win32 平台编译，运行期包按项目需要编译对应平台。如果你用的是命令行批处理，最好在脚本里把平台参数写死，避免误操作。

4. 用 TMS VCL UI Pack 做一个服务器监控面板：网格、仪表盘与富文本的组合示例

4.1 先搭界面骨架

安装完控件，要真正检验一个控件包好不好用，最快的方式是拿它做一个带点实际功能的小工具。我用 TMS VCL UI Pack 做过一个服务器监控面板，功能不复杂：左边一个服务状态网格，中间一个 CPU 占用环形进度条，下面一个日志输出框。选它做示例是因为这三个组件恰好覆盖了网格、仪表和文本三个模块。

新建 VCL Forms 应用后，先从组件面板拖三个控件到窗体：TAdvStringGrid、TAdvSmoothCircleProgressBar、TAdvRichEditor。再放三个 TAdvSmoothButton 用来模拟触发操作。布局随意，重点是代码里的属性配置和运行逻辑。初始化代码写在 FormCreate 里：

procedure TForm1.FormCreate(Sender: TObject); begin // 配置服务列表网格 AdvStringGrid1.ColCount := 4; AdvStringGrid1.RowCount := 6; AdvStringGrid1.FixedRows := 1; AdvStringGrid1.FixedCols := 0; AdvStringGrid1.Cells[0, 0] := '服务名'; AdvStringGrid1.Cells[1, 0] := '状态'; AdvStringGrid1.Cells[2, 0] := '响应时间(ms)'; AdvStringGrid1.Cells[3, 0] := '备注'; // 配置仪表盘 AdvSmoothCircleProgressBar1.Maximum := 100; AdvSmoothCircleProgressBar1.Minimum := 0; AdvSmoothCircleProgressBar1.Value := 0; AdvSmoothCircleProgressBar1.Appearance.FillAngle := 360; AdvSmoothCircleProgressBar1.Appearance.StrokeThickness := 6; // 配置日志框 AdvRichEditor1.ReadOnly := True; AdvRichEditor1.Align := alClient; end;

这段代码的作用是把网格表头写清楚、把进度条的范围设为 0 到 100、把富文本编辑器设为只读。网格的属性里，ColCount 和 RowCount 控制行列数，FixedRows 设为 1 表示第一行固定作为表头，滑动表格主体时表头不滚动。Cells 是直接按坐标填文本的入口，坐标从 0 开始。进度条的 Appearance.FillAngle 控制填充扇区的角度，360 就是整圆，StrokeThickness 控制圆环粗细，数值越大环越粗。富文本编辑器在只读模式下仍然允许用户选中文本复制，适合做日志窗口。

4.2 模拟数据刷新与界面联动

光有静态界面不够，监控面板要动起来才有意义。用一个 TTimer 每两秒随机更新一次所有服务的状态和数据，同时把整体健康度反映到进度条上。代码写在 Timer 的 OnTimer 事件里：

procedure TForm1.Timer1Timer(Sender: TObject); var I: Integer; StatusText: string; begin for I := 1 to AdvStringGrid1.RowCount - 1 do begin if Random(100) > 20 then StatusText := '正常' else StatusText := '告警'; AdvStringGrid1.Cells[1, I] := StatusText; AdvStringGrid1.Cells[2, I] := IntToStr(Random(150) + 10); AdvStringGrid1.Cells[3, I] := FormatDateTime('hh:nn:ss', Now); if StatusText = '告警' then AdvStringGrid1.RowColor[I] := $00B0FFD6 else AdvStringGrid1.RowColor[I] := clWhite; end; AdvSmoothCircleProgressBar1.Value := 100 - Random(30); end;

这里有几个值得留意的点。Cells 的第二个下标对应行号，注意不要写成和表头冲突，所以循环从 1 开始。RowColor 是 TAdvStringGrid 提供的按行着色属性，下标和行号一一对应，我这里用淡绿色表示异常行，这是一种常见做法；要恢复默认就赋 clWhite。进度条 Value 直接在运行时赋值，它内部会自动计算百分比并重绘，不需要额外调用 Repaint。这个控件包在属性设计上做了不少贴心处理，很多显示类控件都自带动画和渐变，开发时省了不少事。

4.3 一键导出网格数据到 Excel

服务器状态需要上报给非技术同事看，最省事的方案是把网格内容直接导出成 Excel 文件。TAdvStringGrid 原生支持导出，代码非常简单：

procedure TForm1.ExportBtnClick(Sender: TObject); begin AdvStringGrid1.SaveToXLS( ExtractFilePath(Application.ExeName) + 'report.xls', True); ShowMessage('已导出到程序目录下的 report.xls'); end;

SaveToXLS 的第二个参数是布尔值，表示是否把当前网格的列宽和行高一并写入 Excel 文件。这个功能对应了很多人搜的“Delphi 导出 Excel 操作”，实际用下来大部分需求用 TMS 原生导出就能满足，不需要引入 COM 或者第三方 Excel 库。需要注意的是，如果需要导出的列包含日期或数字格式，最好在网格里先把列属性设对，比如把日期列设置为 TMS 内部的日期格式显示，这样导出到 Excel 后类型才不会变成文本。

4.4 运行时通过代码创建控件的场景

有些界面希望完全通过代码动态创建控件，而不是在设计期拖拽。比如服务列表的数量不确定，要根据数据库记录动态生成多个卡片面板。TMS 控件同样支持运行时创建，这里给一个创建动态按钮的片段：

procedure TForm1.CreateDynamicButton(ACaption: string; ALeft, ATop: Integer); var Btn: TAdvSmoothButton; begin Btn := TAdvSmoothButton.Create(Self); Btn.Parent := Self; Btn.Caption := ACaption; Btn.Left := ALeft; Btn.Top := ATop; Btn.Width := 120; Btn.Height := 32; Btn.Appearance.Style := esOffice2007Blue; Btn.OnClick := DynamicBtnClick; end;

动态创建控件时，Create 的参数是 Owner，传 Self 表示由窗体负责释放，不要传 nil，否则控件在关闭窗体会泄漏。Parent 属性决定控件绘制在哪个容器上，创建后必须赋值。Appearance.Style 是 TAdvSmoothButton 的预设外观枚举，esOffice2007Blue 是偏商务的蓝色风格。按钮的 OnClick 事件类型是普通的 TNotifyEvent，所以可以直接指向窗体的一个方法。能动态创建是一个控件包成熟度的标志，TMS 这套包在设计期运行时行为上没有做太多区分，代码创建和设计期拖拽出来的控件属性完全一致。

4.5 这一套用下来的感受

当示例工程跑起来，网格滚动流畅，进度条动画平滑，富文本日志字体清晰，再加上皮肤效果，整个界面和老式 VCL 程序完全是两个观感。这个方案的好处是不需要引入 Graphics32 之类的底层库，所有绘制细节都在组件内部处理，团队里哪怕只有一个人懂 TMS 属性配置也能把界面撑起来。代价是学习曲线集中在组件属性上，TMS 的属性面板项非常多，同一个按钮有几十个外观相关属性，一开始容易看花眼。

我的经验是先用默认外观跑通功能，再逐个调属性。不要一开始就把所有按钮的 Fill.Color 和 CornerRadius 都设成一样，那样后续维护时会发现样式散落各处。把样式集中放到一个初始化方法里统一赋值，这是最省心的组织方式。

5. 安装与使用中的 5 个高频坑：从 msxmldom 到组件不显示

5.1 msxmldom.dcu not found

这个报错是所有装过老 Delphi 控件包的人都有印象的问题。现象很直接：编译某个 TMS 包的 dpk 工程时，编译器提示找不到 msxmldom.dcu，于是整个安装流程卡住。原因通常是 TMS 包里有部分组件依赖微软的 XML DOM 单元，而这个单元在较新版本的 Delphi 里被分离或改名了，如果 IDE 的 Library Path 里混入了旧版本的路径，编译器就会优先尝试旧路径下的这个 dcu 文件，一旦路径失效就报错。

解决方法按顺序试：先在 Library Path 里把多余的老路径删掉，只保留当前 IDE 自带路径和 TMS 的 source 路径；如果还报错，查看编译日志里是哪个单元引用了 msxmldom，把对应的 uses 改成新版本单元名，比如 XMLDoc、XMLIntf 等。最省事的办法是直接下载匹配当前 IDE 版本的 TMS 包分支，标题里这个 v13.5.6.0 对应 Delphi 7 到 13 就是为了避免这类跨版本问题。

5.2 装完组件面板没有 TMS 分页

很多新手按网上教程编译安装后，打开 IDE 一看组件面板还是老样子，觉得安装失败了。这里要分两种原因：如果你只编译了运行期包，组件面板当然不会出现，因为运行期包只提供单元实现，不负责注册可视化控件；如果你编译的是设计期包但 IDE 没反应，另一种常见情况是设计期包编译成功但没有被 IDE 加载，需要手动到 Component > Install Packages 对话框里点击 Add 按钮，选中生成的 dclTMS*.bpl 文件加载。

还要注意一个细节：有些安装步骤会要求先关闭 IDE 再编译 bpl，否则 bpl 文件被 IDE 进程占用，虽然编译可能成功，但文件写不进去，等到下次打开 IDE 时才发现组件面板是空的。血泪经验就是安装前先关 IDE 或者确认没有其他 Delphi 进程占用 bpl 文件。

5.3 同一个 bpl 在 Delphi 和 C++Builder 之间互相冲突

标题里写了支持 Delphi 7-13 和 CB 7-13，如果你机器上同时装了 Delphi 和 C++Builder 两个 IDE，并且共用同一个输出目录，就会遇到 bpl 或 dcp 文件互相覆盖的问题。现象是 Delphi 里装好的控件，切到 C++Builder 后突然报错，或者反过来。

原因是两个 IDE 的语言运行时不同，C++Builder 链接 bpl 的方式和 Delphi 有差异，直接用同一个 bpl 文件有兼容风险。解决方法是给两个 IDE 分别设置独立的输出目录，比如 d7 分支输出到 lib\delphi，cb7 分支输出到 lib\cppbuilder。编译时用批处理脚本把输出路径按 IDE 类型区分，这是彻底解决冲突的办法。

5.4 老项目的 DFM 打开报 class not found

从旧机器拷贝过来的项目，用 Delphi 13 打开窗体时弹窗提示找不到 TAdvStringGrid 类。这个问题的原因不是 TMS 没装，而是当前 IDE 的设计期包没加载，或者工程文件里没有引用 TMS 相关单元。

解决顺序：先确认设计期包是否已经出现在 Install Packages 列表里；确认后，打开项目里的 uses 检查是否引用了 TMS 单元，例如 AdvStringGrid。如果 uses 里没有而 DFM 里有，IDE 无法建立类名到单元名的映射，就会报 class not found。还有一种少见情况是 TMS 包版本升级后，组件所在的单元名改了，老项目的 DFM 还写着旧类名。这时候可以打开 DFM 文件手工搜索类名，改成新版本的类名，或者用 TMS 提供的迁移工具处理。

5.5 运行程序时有评估水印或皮肤被禁用

如果你是安装了官方评估版或者没有输入正确的序列号，运行程序时界面上会出现评估水印，部分皮肤也不能使用。这个现象很容易被误解成控件 bug。通常 Full Source 版本会提供一个注册配置工具，安装后把序列号写入 IDE 的注册表，或者在代码里调用授权方法。

处理方式是先检查 IDE 的 About 对话框里是否能识别 TMS 的注册信息，不行就重新运行安装程序里的授权模块。需要提醒的是，评估版的功能限制是厂商保护自己的方式，正式项目中不建议使用任何绕过评估限制的手段，直接购买授权是最稳的。这条经验适用于所有商业控件包，不只是 TMS。

6. 用一张“安装体检清单”收尾，以及值得深入的三件事

装好一套控件包，最怕的就是第二天发现某个角落的 Demo 编译不过，或者组件面板图标变灰。我给自己定了一个体检流程，每次装完 TMS VCL UI Pack 都花五分钟过一遍：组件面板能看到 TMS 分页、新建 VCL 工程能拖出 TAdvStringGrid、运行一个官方 Demo 编译通过、把 Demo 目标平台切到 Win64 重新编译，最后确认发布到别的机器上能正常跑。这套流程走完，才敢说安装真正完成了。

后续深入使用，有三件事值得花时间：第一，断点进 TMS 源码里看控件内部的重绘逻辑，比如 TAdvSmoothButton 的风格绘制在哪个方法里实现，这对理解界面卡顿来源非常有用；第二，按自己产品的视觉规范给控件做样式封装，把所有按钮统一成一个基类样式，业务单元只改文案和位置；第三，每个月关注 TMS 的更新日志，新版本发布时直接拉源码包重编译，避免长期使用旧分支积累兼容债。

我这几年的教训是，控件包升级不要跟太紧也不要拖太久。跟太紧，每次升级都重新验证一轮，成本不小；拖太久，一年后升级遇到的问题堆积到一起，排查反而更难。比较稳妥的节奏是季度升级一次，每次升级前备份整个包目录和当前项目，升级后表格跑一遍体检清单里的五步。希望帮到你，让你的 TMS VCL UI Pack 真正变成手里趁手的工具，而不是装完就吃灰的库里摆设。

本文还有配套的精品资源，点击获取