简介TMS VCL UI Pack v13.5.11.0 for Delphi C Builder 是一套面向 Delphi 7 至 13 及对应 C Builder 版本的高级用户界面组件库完整源码包由 TMS Software 出品特别适配 Delphi 13.1 与 Florence 主题适合需要在 Windows 平台快速搭建美观、可交互界面的中高级开发者。整个压缩包共 2000 个文件大小约 124MB主体以 502 个 .pas 源代码、239 个 .dfm 窗体布局文件为主同时包含 227 个 .dproj/.dpr 工程文件、.res/.dcr 资源文件以及图标和位图素材方便直接编译或按需拆解学习。目前已有 119 人浏览学习该资源。包内提供按钮、导航抽屉、菜单、状态栏、进度条等丰富组件的完整实现并附有 PDF 文档与演示工程可帮助开发者深入理解组件设计原理针对业务场景二次定制有效提升桌面应用的开发效率与界面品质。1. TMS VCL UI Pack v13.5.11.0在 Delphi 7 到 13.1 之间用一份源码焊住 UI 家底公司资产里跑着一个 Delphi 7 时代的老桌面系统新需求却在 Delphi 13.1 上排着队。这种情况在存量项目里很常见团队不是缺新语法而是缺一套能覆盖二十多年 IDE 版本差异的控件家底。标题里这套 TMS VCL UI Pack v13.5.11.0代码代号 Florence就是拿来填这个缺口的。它不是安装版试玩装饰末尾的 Full Source 表示所有包都能自己编译明确支持 Delphi 与 CBuilder 7 到 13 全区间。老工程想贴新工程引用最常见的 Excel 操作、PDF 导出、日程看板、网格编辑这些需求基本不用再硬造轮子。对还在维护老系统又要上新模块的工程师来说这套包意味着两件事一是老 IDE 上还能拿到持续更新的组件能力二是新 IDE 上不用重新选型。下面按“包里有什么、两代 IDE 怎么编译、源码怎么用、坑在哪、多版本怎么管理”的顺序推进新手照着路径走熟手可以直接跳到编译顺序和避坑清单。2. 先看清包里的组件版图别把 TMS VCL UI Pack 只当成“一堆 grid”很多人拿到 Full Source 版本后的第一个动作是满目录找 DPK 文件这没错。但更该先做的是把组件分类过一遍否则编译完会发现 80% 的包你根本不装不注册纯浪费编译时间。2.1 按数据量级选表格TAdvStringGrid 到 TDBAdvGrid 的边界网格是整个包的主角。TAdvStringGrid 不是 TStringGrid 的换皮它本质是一个内存表格加展示引擎支持点击列头排序、拖拽调整列宽、单元格合并、多行自动高度、单元格内图像显示。它不要求连接数据库数据由代码或字符串数组喂进去适合做台账预览、批量录入、报表中间层。如果业务数据来自显式数据库就用 TDBAdvGrid。这个组件和 TAdvStringGrid 同源只是多了 DataSource 绑定、字段映射和主从联动。要注意的是两者不能混用TAdvStringGrid 的 Cells 和 AddRow 方法在 TDBAdvGrid 里虽然也存在但一旦绑定 DataSource代码里直接写格子内容会被数据集刷新覆盖这是最常见的误用。边界怎么划我一般这样判断数据量在五万行以内、展示和编辑逻辑偏自定义用 TAdvStringGrid数据挂在后台库、要求实时刷新用 TDBAdvGrid超过几十万行还想要平滑滚动就别勉强网格组件该换 DBGrid 加缓存分页的思路了。包里还有个 TAdvGridExcelIO 配套单元负责把网格内容转成 xlsx很多人搜“delphi excel 操作”搜半天其实要的就是这个组件。2.2 计划表、甘特与图表业务系统最后一块拼图业务系统不只是表格。排班、排产、项目计划这类场景TAdvScheduler 是包里的重头戏。它做的是资源日历能从右侧客户区拖出任务块、按天周月切换视图、内置时间段冲突检测。另一个是 TAdvChartView折线、柱状、面积、饼图都在里面轴标签、图例、数据点提示都能调。还有一类容易被忽略的组件是 TAdvMemo、TAdvRichEdit 和 TAdvGlowButton 这类基础控件。它们不炫但生产系统里大量用。例如日志窗口用 TAdvMemo 做高亮显示工具栏按钮用 TAdvGlowButton 做渐变效果视觉统一能省不少 UI 返工。摄像头调用这类需求也有对应的图像采集组件可用把视频流绑定到面板上的矩形区域再交给图像处理流程即可。整体下来这套包覆盖的是“企业桌面应用”的常用组件面而不是某个单一功能点。2.3 Full Source 的价值不是“给你看”而是“给你改”安装版组件包交付的是注册好的 BPL 和编译后的 DCU运行没问题想深入了解某个属性的实现逻辑时只能对着文档猜。Full Source 版本的意义在这里就体现出来了可以直接在 IDE 里按 F7 步进到控件源码看那个属性名到底在什么条件下生效也能为了业务需要直接改源码再重新编译全包。例如我曾经遇到一个需求希望网格在回车时跳到下一行的固定列而不是下一格。文档里没有直接对应属性安装版只能绕过Full Source 就直接在 TAdvStringGrid 的按键处理源码里找到对应分支加了一段判断重编译后整个项目的行为就统一了。改完以后的坑也有改动会传染到所有引用该包的项目所以最好在源码里留下注释或者用条件编译指令把改动限定到特定 IDE 目标。另一个隐藏价值是学习。这套包的源码质量在商业 VCL 组件里算很工整字段管理、属性访问器、状态同步、界面刷新拆分得很清楚。想踏实“学习delphi”的人与其看零碎的视频不如把一个全源码包抄下来读一遍。真正 Debug 的时候比到处搜帖子快得多。2.4 与 Lazarus、FMX 源码的生态位对比网上常有人问“lazarus 和 delphi 的差距”。这个差距在商业组件生态上体现得最明显。Lazarus 的 LCL 能模拟 VCL 体验但 TMS VCL UI Pack 这种商用包只面向 VCL 和 Delphi/CBuilder 的主线 IDE不管是许可证还是包格式都没有为 Lazarus 做适配。想跨平台确实可以看 FMXDelphi 12 FireMonkey 源码也能拿到手但 FMX 的强项是跨平台 UIWindows 桌面业务系统里表格打印、Excel 导出、日程拖拽这些细节VCL 依然更顺。所以我的取舍是纯 Windows 内部业务系统用 VCL 加这套包追求现场可改可调真正要跨平台交付再把 FMX 拿出来单独做。两个框架并存并不冲突老项目该升的升新项目跨平台需求来了再换皮。这个判断在团队里讨论过很多次靠的是把组件按“边界、维护成本、需求覆盖”三项打分而不是单纯比新潮。3. 在 Delphi 7 和 Delphi 13.1 上分别编译 TMS VCL UI Pack编译顺序与命令全源码包到手以后最忌讳的事就是打开 Delphi 直接双击某个 DPK 编译。顺序错了核心单元还没编译出来后续包一引用就报“找不到文件”。这一章把两代 IDE 的编译路径说清楚。3.1 解包后的目录识别与编译顺序TMS VCL UI Pack 解包后一般能看出几类目录源码目录里按模块分包含核心基础单元、网格单元、调度器单元、图表单元和扩展控件单元包目录里放着各个 IDE 版本对应的 DPK 文件另外还有示例工程和帮助文档。先把整个包放到一个无空格、纯英文路径下我习惯放在 C:\Comps\TMS_VCL_13_5_11 这种位置避免空格引发编译器参数解析问题。全局 Library 搜索路径要先加核心源码目录顺序上核心包永远最先编译。理由很简单TAdvGrid、TAdvScheduler 这些控件都依赖核心单元里的基础类核心 BPL 没生成后续包的引用单元根本找不到。常见做法是先编译核心包再编译网格相关包再编调度器和图表最后编扩展包。在 IDE 环境选项里把源码目录加到 Search Path能减少大量手工指定路径的操作。3.2 Delphi 7 老环境静默编译路径一次给足Delphi 7 是二十年前的编译器对路径特别敏感而且内存管理不如新版本。编译时最稳的方式是用命令行工具 dcc32.exe把搜索路径一次性用参数给足避免 IDE 的全局路径被老项目污染。下面这段批处理演示了核心包的编译方式echo off REM 以 Delphi 7 安装路径为例按实际目录修改 set DCC32C:\Delphi7\Bin\dcc32.exe set ROOTC:\Comps\TMS_VCL_13_5_11 cd /d %ROOT%\packages %DCC32% -b -Q -O1 -U%ROOT%\source\core -U%ROOT%\source\grid %ROOT%\packages\TMS_Core_R70.dpk参数说明-b 表示全量构建-Q 是安静模式减少输出量-O1 做基础优化-U 后面带的是源码搜索路径编译器在编译该 DPK 时会去这些目录找被引用的单元。示例里的 TMS_Core_R70.dpk 最后的 R70 是按 Delphi 版本区分包名的常见写法实际文件可能叫别的后缀以解压后的真实文件名为准。编译成功后会在同目录生成对应 BPL 和 DCP再逐个编译网格包和时间相关的包。3.3 Delphi 13.1 新环境注册包到 IDE 组件面板新版本 IDE 的编译命令类似只是 dcc32 位于 RadStudio 安装目录下的 bin 里。更省事的方式是直接在 IDE 中打开 DPK 文件右键选择 Compile再选择 Install。这里要强调一个高频坑Compile 和 Install 是两回事Compile 只生成 BPLInstall 才会把组件注册进 IDE 组件面板。很多人编完发现面板里空白就是少了这一步。echo off set DCC32C:\Program Files\Embarcadero\Studio\版本号\bin\dcc32.exe set ROOTC:\Comps\TMS_VCL_13_5_11 cd /d %ROOT%\packages %DCC32% -b -Q -U%ROOT%\source\core -U%ROOT%\source\grid %ROOT%\packages\TMS_Core_R132.dpk %DCC32% -b -Q -U%ROOT%\source\core -U%ROOT%\source\grid %ROOT%\packages\TMS_Grid_R132.dpk编译完进入 IDE打开 Component 菜单里的 Install Packages点 Add选定刚生成的 TMS_Grid_R132.bpl。包名里带 Design 字样的才是设计期包运行期包不需要 Add。成功以后组件面板会新增一组以 Adv 开头的控件。3.4 CBuilder 目标头文件与 lib 的生成顺带验证CBuilder 场景下这些 DPK 打开时 IDE 会先生成对应的 .hpp 头文件再编译出 .lib 和 .bpl。关键点是 CBuilder 工程一定要在 Visual Studio 风格的头文件路径里引用 .hpp而不是自己手写控件类。验证步骤是新建一个 Console 或 VCL 应用往窗体上拖一个 TAdvStringGrid编译链接不报“Cannot open include file”就算通过。包注册到 IDE 后推荐再做一个最小验证工程窗体 FormShow 里创建网格、加两行数据、跑一次导出 Excel。这一步能同时验证 BPL 路径、DCU 版本、搜索路径三件事是否都正确比直接打开大型业务工程试错要快。4. 用 Full Source 的价值做最小业务窗体网格、导出 PDF 与 Web 容器整合这一章直接落代码。核心思路是把一个传统 Delphi 业务窗体从原始 VCL 控件迁移到 TMS 控件上顺便把 Excel 导出、PDF 导出、内嵌浏览器三个需求一起收掉。4.1 迁移从 TStringGrid 到 TAdvStringGrid老系统里最常见的就是 TStringGrid 做表格。迁移到 TAdvStringGrid 以后固定行、列头排序、自动列宽都是配置级能力。下面是窗体创建时初始化网格的典型代码procedure TForm1.FormCreate(Sender: TObject); var RowData: array[0..2] of string; begin AdvStringGrid1.FixedRows : 1; // 第一行作为表头不参与滚动 AdvStringGrid1.Options : AdvStringGrid1.Options [goRowSizing]; AdvStringGrid1.Cells[0, 0] : 订单号; AdvStringGrid1.Cells[1, 0] : 日期; AdvStringGrid1.Cells[2, 0] : 金额; RowData[0] : SO-001; RowData[1] : 2026-01-01; RowData[2] : 1280.00; AdvStringGrid1.AddRow(RowData); end;逻辑说明FixedRows 设为 1 表示首行固定表头AddRow 方法接受字符串数组并自动追加到底部。Options 里追加 goRowSizing 可以让用户拖动行高。这里不建议用 Cells 赋值的方式逐格填数据AddRow 才是批量场景的路径。需要点击表头排序时开启 SortSettings 相关属性即可这一步能让表格体验直接追上 Excel。4.2 导出 Excel 与 PDF把 RBuilder 时代的旧债一次还清老项目常见“delphi rbuilder 导出成 pdf”这类需求既有方案往往挂着 RBuilder 的一大堆接口改起来很痛苦。TMS 套件里网格自带导出配套单元代码量少一个量级uses AdvGridExcelIO, AdvGridPDFIO; procedure TForm1.btnExportClick(Sender: TObject); var Exporter: TAdvGridExcelIO; PdfIO: TAdvGridPDFIO; begin Exporter : TAdvGridExcelIO.Create(nil); try Exporter.Export(AdvStringGrid1, 订单明细.xlsx); finally Exporter.Free; end; PdfIO : TAdvGridPDFIO.Create(nil); try PdfIO.Grid : AdvStringGrid1; PdfIO.Options.PageFormat : pfA4; PdfIO.Options.PaperOrientation : poLandscape; PdfIO.ExportFile(订单明细.pdf); finally PdfIO.Free; end; end;说明TAdvGridExcelIO 的 Export 方法接收网格对象和输出文件名内部完成格式转换列宽、字体、固定表头都会带过去。PDF 导出同样以网格为数据源PageFormat 和 PaperOrientation 控制纸张规格。这两个配套组件都在 Full Source 包里自己编译时能看到完整实现。老项目里那些手工拼 Excel XML、PDF 坐标的代码基本可以整体退休。4.3 给老工程补 Web 容器把“WebBrowser 播放 PPT”从黑屏里救出来热搜词里“delphi webbrowser 播放 ppt”是老问题。早年做法是在窗体里放 TWebBrowser 指向一个 PPT 文件或网页让浏览器插件渲染。升级到新 IDE 后默认内核不再支持老旧 ActiveX 插件PPT 页面直接黑屏。TMS 包里提供的 Web 容器组件能接管这部分渲染但它解决的也是容器问题PPT 文件本身的兼容性依然存在。我通常的做法是如果是服务器页面就把它作为统一 URL 嵌入如果是本地 PPT 文件先在工具里另存为 PDF再让容器或 PDF 查看组件打开。这样绕开了 WebBrowser 对 Office 插件的依赖黑屏问题从根上消失。需要保留动画效果的话可以转为视频流播放稳定性更高。4.4 更进一步把包封装成自己的公共组件Full Source 带来的最后一个红利是可以二次封装。常见做法是写一个 TBaseAdvGrid 类继承 TAdvStringGrid把固定行数、默认列宽、列头样式、右键菜单全部在构造器里统一设置然后新建工程时用它代替原控件。这样业务代码里不再散布大量样式代码产品换肤或者调整行高时只改一处。这个思路同样适合对 TAdvScheduler 和 TAdvMemo 做封装算是把商业控件的价值沉淀成为团队自己的 UI 规范。5. 五个必踩的坑与排查路径从编译内存错误到组件面板不显示Full Source 包用起来不比安装版复杂但坑都集中在“多版本、多路径、多包混装”这三个点上。下面每一条按“现象、原因、解决”写清楚遇到时可以直接对照。5.1 编译期内存错误搜索路径里藏着重复 DCU现象Delphi 7 下编译工程到一半弹出内存错误或编译器内部错误Delphi 13.1 则表现为 IDE 卡死或直接退出错误信息里看不到具体单元。原因全源码包没有收进 IDE 全局搜索路径编译器在临时目录和老安装目录里抓到同名但不同版本的 PAS 或 DCU。多个版本的 TMS 包混装时相同单元名被反复冲突加载导致编译器状态错乱。解决先清理再重编。删除工程目录和组件目录下所有 .dcu、.bpl、.dpc 文件在 IDE 的 Library Path 里只保留本套件唯一源码路径重新执行第 3 章的命令行编译。老版本安装包残留的 BPL 也一并清掉避免运行时再次被加载。5.2 组件面板有包名没图标Install 与 Compile 的区别没搞清现象编译了 DPK在 Package 窗口里能看到包名但组件面板里找不到 TAdvStringGrid。新建窗体后手动输入类名又能编译通过。原因只执行了 Compile没有执行 Install。Compile 只生成 BPL 和 DCPInstall 才会调用注册例程把控件加入 IDE 的组件列表。解决在包管理器窗口里右键工程节点选择 InstallIDE 弹出确认框后组件才会出现在面板上。如果还是看不到检查是否装了设计期包只有名称里带 Design 的包才需要 Install。运行期包不要 Install只加入搜索路径即可。5.3 系统目录里的旧 BPL 与新源码包打架Bad Image 报错现象IDE 启动时弹 “Bad Image” 或 “无法找到入口点”Delphi 老工程打开后直接崩。检查发现新版包编译正常但 IDE 一加载就炸。原因旧安装版把 TMS 的 BPL 写进了系统目录注册表里的 Known Packages 指向旧路径。全源码包编译的新 BPL 与旧 BPL 同名系统同时加载两个版本函数入口对不上。解决卸载旧安装版手动删除 %SystemRoot%\System32 下的 TMS 相关 BPL 和 DCP再清理注册表 HKCU\Software\Embarcadero\BDS\对应版本号\Known Packages 里的 TMS 旧键。最后重新执行全源码包的安装流程确保系统里只存在一份 BPL。5.4 TListBox.AddItem 与 TAdvStringGrid.AddRow 的空白行玄学现象循环里调用 AddItem 或 AddRow第一行总是空内容或者末尾多出一行空白看起来完全没有规律。原因ListBox 的 AddItem 方法是从 0 开始追加内容网格的 AddRow 同样追加在末尾。空白行通常是 Index 参数传错把 -1 当成了默认位置网格的 FixedRows 没有设置时表头和数据混在一起视觉上就成了空白首行。解决窗体创建时先给 FixedRows 赋正确的值再填写表头单元格。AddRow 时传入完整数组不要传空数组。检查循环边界在 for 循环里别在循环结束后再多调一次 AddRow这是空白末行最常见的原因。把 AddRow 和直接修改 Cells 的代码分开别在同一次循环里混用。5.5 内嵌浏览器播放不了 PPT内核与插件协议一起过期现象新 IDE 下用浏览器组件打开某个 PPT 页面窗口黑屏或白屏旧机器上同一页面却正常。原因新版渲染内核禁用了 ActiveX 插件加载而该 PPT 页面依赖的组件在系统里压根没注册。这是浏览器内核与插件协议的双重过期跟代码本身关系不大。解决把 PPT 另存为 PDF 再打开用包的 PDF 查看能力替代这是最稳的方案如果 PPT 动画必须保留就转成视频。涉及网页播放时设置容器组件允许远程内容加载并使用服务端输出兼容格式不要直接依赖本机 Office 插件。6. 多 IDE 版本并存时用一份产物清单做回归验证如果你和我一样同时维护 Delphi 7 和 13.1 两套 IDE版本管理会是最后一道坎。我养成的习惯是给每个 IDE 建独立二进制目录保存一份包含 DCU、BPL、DCP 和时间戳的产物清单。表格式的大致形态如下目标 IDE包后缀示例关键产物回归检查点Delphi 7R70core_R70.bpl老工程打开即编译不弹版本错误Delphi 13.1R132core_R132.bpl新工程拖动组件demo 运行全绿CBuilderCB.hpp 与 .lib新建 CB 工程编译链接不报 LNK每次重新编译后我用一段批处理记录各目录的产物时间戳排障时先看清单再翻代码echo off set ROOTC:\Comps\TMS_VCL_13_5_11 for /d %d in (%ROOT%\Binaries\*) do ( echo %d: build_log.txt dir /b /s %d\*.bpl build_log.txt )这个清单帮我在升级组件后快速定位是哪个包的 BPL 没更新也避免新工程误用了旧 DCU。早几年我图省事让所有 IDE 共用同一个 BPL 目录结果一次更新后 Delphi 7 工程集体崩坏教训深刻。现在每个目标 IDE 各占一个目录搜索路径彼此隔离问题出现范围一下子缩小很多。用 Full Source 包最大的好处就是每个 IDE 都能编译出自己专属的 BPL旧版本也不会因为新 DCU 格式不同而被拖垮。希望这段整理能帮你把包用稳少走这些老路。本文还有配套的精品资源点击获取