简介Delphi TMS Component Pack v8.3.4.0 全源码控件包是一套面向 Delphi 桌面与业务开发者的知名组件集覆盖 D7 至 XE10.3适合需要表格、图表、界面皮肤、通讯协议等能力的工程师以及希望深入组件内部做二次修改的团队。资源约 2000 个文件压缩包 166.45MB核心包含 1678 个 pas 源码、3113 个 dcu 编译单元、2082 个 hpp 头文件并配齐 dpr/dproj 工程、dpk 安装包、dfm 窗体布局、res/dcr 位图资源及多版本演示工程可支撑 IDE 安装、项目构建和差异对比。已有 698 人学习下载作者实测原版支持至 XE10.2经修改后可在 XE10.3 下正常使用。相比常见编译版这套全源码资源能直接查看控件实现、按需裁剪功能或修复兼容问题既满足日常界面与数据交互开发也适合中高级开发者进行深入定制与长期维护。1. 一套源码覆盖七个 IDE 时代TMS Component Pack v8.3.4.0 到底解决什么问题Delphi TMS Component Pack v8.3.4.0 full source D7~XE10.3 拆开看是三件事TMS 的 VCL 组件全家桶、8.3.4.0 这个带完整源码的版本以及从 Delphi 7 一路覆盖到 XE10.3 的 IDE 支持范围。我见过太多人卡在安装这一步压缩包解压很顺利编译时报一长串找不到 dcu最后只能退回旧版本白白浪费一个下午。其实这套东西的价值不在能不能双击装完而在装完之后你手上多了一整套可读、可改、可单步调试的界面控件源码——这才是 full source 的意义。下面的内容按我自己的落地顺序写先讲版本匹配和包依赖再给可照抄的编译安装步骤最后是几条我踩过并且至今记得住的坑。2. 装以前先理清版本、依赖和搜索路径三个决定成败的前置问题TMS Component Pack 这类带 full source 的控件包安装失败九成发生在编译之前。不是源码有问题而是 IDE 版本、包依赖、路径三者没对齐。Delphi 7 到 XE10.3 中间隔了十几年编译器从 dcc32 换到 MSBuildRTL 单元名也变过比如 D7 里直接用 FileCtrl到 XE 系列就要手动检查依赖。拿到包之后第一件事不是双击 dpk而是先做下面三件事。2.1 拿到源码先核对 IDE 版本和包目录结构常见做法是压缩包里按 IDE 大版本分目录或者包文件名带版本后缀比如 D7、XE、XE10 各自一套 dpk。先用记事本打开包里的 dpk 或 dproj 看 requires 列表D7 的包通常只有.dcu 和.dpk没有 dprojXE 之后的包会带 Winapi.、System.这类带前缀的单元引用。如果目录结构和你的 IDE 对不上直接编译必然会翻车。我一般会先把 SOP 定下来解压到固定根目录比如 E:\Components\TMS\v8.3.4.0然后在下面分 Source、Packages、Lib 三个子目录。Source 放源码Packages 按 D7/XE/XE10 分子目录放各自的项目文件Lib 按 D7/XE/XE10 再分一层放编译产物。这样做的目的是让多个 IDE 版本共用一套 Source但编译产物彻底隔离后面所有路径配置都围绕这个目录约定展开。还有一个容易忽略的点D7 没有平台概念输出的是 32 位 dcuXE10.3 默认 Win32 平台但也可以编 Win64。如果你要编 Win64包依赖里的 dcu 也必须全是 64 位混着用会在链接时报对象文件格式不匹配这类问题查起来特别费时间不如一开始就统一。2.2 设计时包与运行时包的先后顺序先编译后安装TMS 这类商业控件包几乎都分成 runtime package 和 designtime package 两类。运行时包只提供功能代码编译进 exe 或在运行时被加载设计时包负责在 IDE 里注册组件、生成工具条页签它 requires 运行时包。所以编译顺序永远是 runtime 在前、designtime 在后安装顺序也同理。一个常见的误区是只装设计时包不装运行时包。有人在 Component Install Packages 里加了 TMS 的 design bpl工具条出来了但新建工程放控件后一编译就报找不到 xxx.dcu。原因就是设计时包只是壳真正实现还在运行时包里IDE 里显示的组件也需要通过包依赖找到实现单元。正确做法是先编译全部 runtime 包再编 design 包最后在 IDE 里 Add 设计时 bpl。D7 和 XE 在包安装方式上也有差别。D7 是打开 dpk 后点 Compile 再点 InstallXE10.3 是打开 dproj 后 Build 一次再用 Component Install Packages 添加生成的 bpl。如果手头有多个版本的 dpk 混在一起编译时 IDE 会按当前版本去识别装了不匹配的包会在 IDE 启动时弹错误框后面避坑章会专门讲。2.3 Library Path 与 Search Path一套源码多版本共存的根子Library Path 是 IDE 编译时查找 dcu 单元的路径Search Path 是查找源码的路径。很多人图省事把 Source 目录直接写进 Library Path结果 D7 和 XE 共用一份源码编译时经常出现单元 A 与单元 B 版本不一致的玄学报错。根源是不同版本编译器对同名单元的 dcu 格式要求不同一旦路径串了IDE 会先搜到另一个版本编译出来的 dcu。我建议的配置方法是Library Path 只指向每个版本独立的输出目录比如 E:\Components\TMS\v8.3.4.0\Lib\D7 和 E:\Components\TMS\v8.3.4.0\Lib\XE10互不干扰。Search Path 才指向公共源码目录但要注意把源码目录放在所有 IDE 的 Search Path 里时务必让输出目录排在前面因为 IDE 查找单元的顺序是 Library Path 优先于 Search Path。这里有个细节值得记住XE10.3 的 Library Path 是按平台分的Tools Options Environment Delphi Options Library - Win32 是一套Win64 是另一套。如果只配了 Win32切到 Win64 编译时会突然报找不到一堆 dcu这不是控件包坏了而是 64 位路径没配。血泪经验就是切换平台后先检查 Library Path 再动手编译。3. 从编译到工具条出现完整安装步骤与命令前置条件理清之后安装就是机械动作了。我这里给两条路线一条是用命令行批量编译适合要反复重装、或者给团队写一键部署脚本的场景另一条是在 IDE 里手动编译安装适合只装一次、想看着每个包结果的情况。两条路线的最终产物一样都是 bpl 和 dcu。3.1 命令行批量编译运行时包D7 与 XE 两条路Delphi 7 没有 dproj用的是 dcc32.exe命令行编译是最快的。先建好输出目录再逐个编译 runtime 包命令大致如下# Delphi 7先建输出目录再用 dcc32 编译运行时包 mkdir E:\Components\TMS\v8.3.4.0\Lib\D7 dcc32 -B -Q -M -DRELEASE ^ -UE:\Components\TMS\v8.3.4.0\Lib\D7 ^ -RE:\Components\TMS\v8.3.4.0\Source ^ -OE:\Components\TMS\v8.3.4.0\Lib\D7 ^ E:\Components\TMS\v8.3.4.0\Packages\D7\TMSAll_R.dpk参数说明-B 表示重新编译所有单元-Q 静默模式减少输出-M 是只编译有变更的依赖实际批量脚本里我通常省略 -M 保证全量干净编译-U 指定 dcu 输出路径-R 指定资源路径-O 指定 obj 输出路径。最后的参数是 dpk 文件路径。如果你编的是多平台版本把输出目录换成 XE10 下的对应文件夹即可。XE10.3 走 MSBuild命令更简洁# XE10.3用 MSBuild 编译 Win32 平台的运行时包 msbuild TMSAll_R.dproj /p:ConfigRelease /p:PlatformWin32 /t:Build /m/p:Config 指定 Release 或 Debug建议第一次装用 Release避免把调试版 dcu 混进 Library PathPlatform 指定 Win32 或 Win64/m 是多核编译加速。注意 MSBuild 必须从 Delphi 自带的命令行环境里运行否则找不到编译目标我一般用 IDE 里的 Tools E... 命令行工具来执行。编译顺序有讲究先编没有依赖或依赖最少的底层包再编上层包。判断依赖关系可以直接看 dpk 里 requires 列表谁被 require 谁就先编。如果依赖顺序错了报错信息通常是找不到单元 xxx但 xxx 明明在源码目录里这种情况先查依赖别急着改路径。3.2 在 IDE 里逐个安装设计时包命令行只编译不注册注册设计时包还得进 IDE。D7 的操作路径是 File Open 打开 design 包对应的 dpk点 Compile再点 InstallXE10.3 是打开 dproj右键 Build然后进 Component Install Packages 点 Add选中输出目录下的设计时 bpl。安装设计时包之前先确认对应的运行时包已经出现在了 IDE 的已安装包列表里。IDE 不会自动加载你没装过的运行时包因此在 Install Packages 对话框里先看底部列表中是否已包含 TMS 的 runtime bpl。没有的话先 Add 运行时包再加设计时包。这个顺序反了工具条虽然能出来但窗体上放组件后 Properties 面板会显示类未注册。装完后 IDE 通常会自动刷新组件面板。如果没刷新可以关掉 Delphi 重开或者在组件面板空白处右键选 Properties看新增页签是否隐藏。TMS 按惯例会把自己放进以 TMS 开头的页签里如果你之前装过旧版本控件可能会多出重复页签后面避坑章节会讲怎么清理。3.3 验证安装结果组件页签、bpl 注册与默认路径验证安装是否成功我一般分三步做。第一步看组件面板里是否出现 TMS 开头的页签随便点开几个组件确认图标正常第二步在 Install Packages 对话框里确认 runtime 和 design 两类 bpl 都列在已安装列表里第三步是实操验证——新建一个 VCL 工程拖一个网格组件和一个按钮组件到窗体上编译运行能跑通才算数。第三步最容易暴露问题。如果编译报无法解析外部符号通常是设计时包安装成功但运行时包缺失如果编译过了但运行报类 TAdv... 未找到多半是 dcu 路径配错或者包没完全安装。还有一种情况是拖组件到窗体时 IDE 直接崩掉这在多版本 IDE 共存的机器上偶发原因多数是设计时包调用了不兼容的 IDE API。验证时顺手把编译方式确认一下Project Options Packages 里勾选Build with runtime packages与否决定最终 exe 是否依赖一堆 bpl。开发期建议勾选编译快、调试方便交付期建议取消勾选或把运行时包一起打包分发这个参数直接影响后面部署越早定越好。4. 常用组件选型与关键参数网格、编辑器与统一风格安装只是开始真正花时间的是选组件和调参数。TMS Component Pack 里组件数量多但日常项目里高频使用的也就是网格、编辑框、面板、工具栏这几类。我按自己的使用频率讲几个组件和必调参数新手可以照着设熟手可以直接跳过步骤看参数边界。4.1 网格类组件列宽、行高、分组与合计的配置网格组件是 TMS 的拳头产品常见的有普通网格和数据库感知网格两类。数据库感知版本需要 DataSource 配合普通版本适合展示内存数据。我一般先在普通网格上把界面效果调好再换到感知版本接数据库这样排错范围小。// 网格基本配置列宽、行高、排序与选中色 AdvStringGrid1.ColWidths[0] : 120; AdvStringGrid1.ColWidths[1] : 200; AdvStringGrid1.RowHeights[0] : 28; AdvStringGrid1.Options : AdvStringGrid1.Options [goColSizing, goRowSelect, goSorting]; AdvStringGrid1.SelectionColor : $00FFD5B8;逻辑说明ColWidths 和 RowHeights 是按索引取值的数组属性索引 0 是第一列/第一行列索引和行索引从 0 开始许多人在这里把行和列搞混导致设了行高却显示在列上。Options 是集合属性不能直接赋值覆盖要用加号追加或减号剔除直接整体赋值会把默认选项全冲掉这是新手最容易踩的坑。分组和合计是网格组件另一个常用能力。调用分组接口时传入列索引和分组方式合计则通常挂在底部汇总行。需要注意的是分组后行号会变数据行的索引不再是连续整数遍历时不能再用 for i : 0 to RowCount - 1 这种写法要先判断当前行的分组状态。我在项目里因此吃过亏分组后删除行删错了对象之后统一改为通过数据行号映射处理。4.2 编辑类组件掩码、校验与输入提示编辑框组件的价值在于把常见输入交互做成属性省去自己写大量事件代码。最常用的三个能力是掩码、校验和占位提示。掩码适合固定格式输入比如电话号码、订单号校验适合在失去焦点时给出视觉反馈占位提示在 UI 上替代传统 Label。// 编辑组件掩码、非法输入变色、占位提示 AdvEdit1.Mask : #999-99; AdvEdit1.Validation : True; AdvEdit1.ValidationColor : clRed; AdvEdit1.PlaceHolder : 请输入订单号;参数说明Mask 里的 # 匹配数字9 匹配可选数字- 是字面分隔符写法类似传统 MaskEdit 但行为更宽松。Validation 开启后输入不满足掩码时组件按 ValidationColor 变色这只影响显示不会阻止提交提交时仍要自己判断 MaskState 属性这是很多人误以为校验通过的原因。PlaceHolder 是输入为空时显示的灰色提示不是 Value 内容取值时不能拿它当默认值。编辑类组件还有一个容易忽略的属性是 MaxLength 与字符过滤。MaxLength 限制长度但中文输入法在部分组件上会把全角字符按两个字节计算导致输入到一半就卡住。如果项目有中文输入场景建议先在一台机器上用真实输入法验证别信文档里写的字节数不同版本的组件对中日韩字符的处理有差异这个只能用实测收尾。4.3 多组件统一风格主题与全局设置项目里几十个窗体如果每个窗体单独设字体和颜色后期改 UI 风格会是一场灾难。TMS 组件普遍支持全局主题设置做法是找一个公共初始化模块启动时设置一次所有已实现主题接口的组件都会跟随。// 程序启动时统一设置主题与字体 initialization TMSThemeManager1.Theme : ttmOffice2019Colorful; Application.Title : 某跨平台系统;这段代码的理念是主题管理器持有全局样式表组件在创建时会查询当前主题并应用。注意 initializa... 段在单元加载时就执行而窗体还没有创建所以主题设置要放在 Application 初始化之后、主窗体显示之前。更稳妥的做法是放在项目文件的 CreateForm 调用后面而不是单元 initialization 段这样时序更可控。全局设置的边界在于不是所有组件都响应主题。如果混用了原生 VCL 控件和 TMS 控件原生控件的颜色和字体需要单独处理否则界面上会出现一半现代一半古老的割裂感。我的习惯是设计阶段就把非 TMS 控件的 ParentFont 设为 True让它们跟随窗体字体减少手动同步点。5. 安装与使用避坑指南版本冲突、路径残留与 bpl 加载失败控件包用久了遇到的问题翻来覆去就那么几类。这里按现象 → 原因 → 解决写五条我实际遇到过的每一条都值得你记进团队文档。5.1 编译报找不到某个 dcu换个 IDE 版本却能过现象XE10.3 编译时报File not found: xxx.dcu换成 D7 编同样的包却能成功。原因多半是该 dcu 属于 IDE 版本相关单元比如 Winapi.MMSystem 在 D7 里叫 MMSystem包 descriptor 里写的 requires 列表是按某个版本生成的。解决打开报错包对应的 dpk/dproj检查 requires 里是否有当前 IDE 版本不存在的单元名逐个改成当前版本对应的名称或确认源码目录里是否缺少某版本专用的兼容单元。5.2 装了多个 IDE 版本后装的包把前一个版本的 bpl 覆盖了现象D7 和 XE10.3 共存装完 XE 后打开 D7IDE 启动报包版本不兼容组件面板全空。原因两个版本把 bpl 输出到了同一个系统目录XE 的 bpl 覆盖了 D7 的同名文件。解决给每个 IDE 单独指定 bpl 输出目录D7 用 Lib\D7XE10.3 用 Lib\XE10并在 Install Packages 里手动 Add 各自的 bpl不要依赖默认系统路径。重装时先删掉注册表里旧的包记录再装新的。5.3 设计时包安装成功工具条却没出现现象Install Packages 列表里能看到 TMS 的 bpl面板里却没有对应页签重启 IDE 也没用。原因装的是运行时包不是设计时包或者设计时包编译时没带上注册单元。解决查 bpl 文件名运行时包通常带 R 后缀设计时包不带用 IDE 打开设计时包的 dpk确认 contains 列表里包含注册单元通常叫 xxxReg.pas重新编译安装。如果确实带了注册单元还不显示删除 IDE 的组件缓存目录后重启一般能恢复。5.4 程序在本机能跑拷到别的机器报 Cant load package现象开发机上编译运行都正常把 exe 拷到没装控件的机器上启动报Cant load package ... bpl。原因工程勾选了 Build with runtime packagesexe 依赖 TMS 的运行时 bpl目标机器上没有这些文件。解决发布时取消勾选 Build with runtime packages让控件代码静态链接进 exe如果必须用运行时包把用到的 bpl 连同 exe 一起分发bpl 放在 exe 同目录即可。注意只分发用到的包全量分发会在目标机器上引发包冲突。5.5 调试时单步进不了组件源码现象CtrlClick 能跳进组件方法但按 F7 直接跑过断点打在组件源码上显示空心圆。原因源码路径没有进入 IDE 的 Debug DCU 路径或者编译包时没生成调试信息。解决在 Tools Options 的 Debugger Debug DCU Path 里添加源码目录然后用 Debug 配置重新编译控件包断点就能命中。不要用 Release 配置编译的 dcu 调试它会去掉符号信息这是浪费过我一整个下午的坑。6. 用全源码做定制拦截器类与保持升级兼容的改法full source 最值钱的部分是你可以改但改之前要想清楚怎么改才能不被下次升级冲掉。直接改 TMS 源码目录里的 pas 文件问题在于版本升级时你会纠结改过的文件要不要覆盖覆盖就丢改动不覆盖就漏新特性。更优雅的做法是使用拦截器类interceptor class模式定义原组件的子类在子类里覆盖需要修改的方法窗体上仍然使用原组件通过 DFM 里的类名替换来实现无缝切换。type TAdvStringGridEx class(TAdvStringGrid) protected procedure DoAfterInsertRows(ARow: Integer); override; end; implementation procedure TAdvStringGridEx.DoAfterInsertRows(ARow: Integer); begin inherited; // 在这里追加自定义逻辑比如自动填充编号 Cells[0, ARow] : Format(SN-%d, [ARow]); end;实现要点是三个第一子类声明要放在窗体单元之前或独立单元里让窗体类能看到它第二在窗体上先放一个原生 TAdvStringGrid然后在 DFM 里把类名改成 TAdvStringGridEx或者在代码里用变量类型声明替换第三覆盖方法时先调用 inherited 保留原行为再追加自己的逻辑避免覆盖掉组件内部关键状态处理。这种改法的好处是源码目录始终保持纯净升级时直接把新版覆盖到 Source 目录子类代码不受影响。要注意子类单元必须加到编译路径里否则窗体加载 DFM 时找不到类会报错。如果只是临时验证某个行为也可以不建子类直接在源码里加断点观察确认逻辑后再决定是写子类还是改源码。我现在的习惯是源码目录保持一份只读副本需要定制时新建一层项目专属封装单元所有改动集中在封装层。升级新版本时对比一下官方改了什么再评估要不要把定制逻辑迁移。这个习惯帮我少处理了很多合并冲突也让组件升级从重新踩一遍坑变成半小时收工。希望帮到你。本文还有配套的精品资源点击获取