Delphi 13 实战：TMS VCL UI Pack Full Source 编译与迁移指南

简介TMS VCL UI Pack v13.5.6.0 是面向 Delphi 与 C Builder 开发者的专业界面控件套件覆盖 Delphi 7 至 13 及 C Builder 7 至 13含 Florence 版本适合需要快速构建现代化 GUI 的中高级开发者。套件内含面板、标签、按钮、表格、编辑器、树视图、列表视图、组合框及专业图形组件并支持皮肤化定制可统一应用风格或创建自定义皮肤减少从零编写界面代码的工作量。资源包共约 2000 个文件以 pas 源码、dfm 窗体、res 资源、dproj/dpr 工程文件为主另含 dpk 包文件、pdf 文档、ico/jpg/png 图标图片及 csv、xml 等辅助数据压缩包约 123.56MB附带完整源代码便于查看、修改与扩展。目前已有 123 人学习下载适合希望提升界面开发效率、研究控件内部实现或进行二次开发的 Delphi 与 C Builder 用户参考使用。1. Delphi 13 控件之 TMS VCL UI Pack从 Full Source 到可编译工程Delphi 13 发布之后VCL 生态里被问得最多的一类问题就是TMS VCL UI Pack 这套控件到底怎么在本地跑起来、Full Source 版本和普通安装版差在哪、升级到 v13.5.6.0 之后老工程为什么编译不过。我最近正好把一套从 Delphi 7 一路维护到 Delphi 13 Florence 的老项目迁到这套控件上中间踩的坑比想象中多。这篇笔记不讲控件有多漂亮只讲一件事拿到 TMS VCL UI Pack v13.5.6.0 for Delphi CB 7-13 Florence Full Source 之后怎么把它变成你自己能编译、能调试、能改源码的工程资产。适合手里有老 VCL 项目、需要一套稳定 UI 控件库、又不想被黑盒 DCU 卡住的人。2. Full Source 版本到底给了你什么DCU 与源码的边界2.1 为什么一线项目更愿意用 Full Source普通安装版给你的是预编译 DCU 加 BPL装完就能拖控件但你看不到实现。Full Source 版本给的是完整的 Pascal 源码包覆盖 Delphi 7 到 Delphi 13 Florence 以及 CBuilder 对应版本。这个差别在平时不明显一旦遇到下面三种情况就会变成刚需一是某个控件在高 DPI 下行为不对你想改一行源码验证二是公司要求所有第三方库必须能审计源码三是你要把控件静态链接进一个不依赖运行时 BPL 的单文件 EXE。我一般会先确认包里的目录结构常见做法是源码按控件族分目录比如Source下再分VCL、Common、Editors之类。不要急着打开 IDE 安装先做一件事把整个源码目录复制一份到你的版本控制里命名带上版本号比如tmsvclui_v13.5.6.0_src。这一步是后悔药后面改崩了能回滚。提示Full Source 不等于免安装。你仍然需要把源码编译成设计期包才能在 IDE 里拖控件。2.2 源码包、设计期包、运行期包三者的关系很多人第一次装 Full Source 会懵为什么有一堆.dpk。这里要理清三层结构。运行期包Runtime Package只包含控件运行需要的单元最终跟着你的 EXE 走设计期包Design Package依赖运行期包额外注册控件到 IDE 工具箱只在设计时加载源码单元则是这两者的共同输入。类型典型文件作用是否随 EXE 发布源码单元.pas控件实现编译进包或 EXE运行期包*.dpk生成.bpl运行时逻辑视链接方式而定设计期包*D*.dpk生成.bplIDE 注册控件否选型理由很直接如果你要做单文件 EXE就把运行期包改成静态链接或者干脆把源码单元直接加进工程如果你团队多人共用一套控件、想统一升级就用运行期包 BPL 的方式升级只换 BPL。2.3 用命令行先验证源码能不能编译在打开 IDE 之前我习惯先用命令行编译一次运行期包确认源码本身没问题。以常见的包目录为例# 进入源码包目录具体路径按你解压后的实际结构替换 cd tmsvclui_v13.5.6.0_src/Packages # 用 Delphi 13 的命令行编译器编译运行期包 # -B 强制全部重编译-Q 静默-W 输出警告 dcc32 -B -Q -W YourRuntimePackage.dpk逻辑说明dcc32是 Delphi 的命令行编译器-B会忽略已有 DCU 全部重编能暴露源码里对旧版本单元的隐式依赖。参数说明如果你的工程是 64 位要换成dcc64CBuilder 侧对应的是bcc32c或bcc64。这一步失败通常不是源码问题而是搜索路径没配对先看报错里缺哪个单元再去Tools Options Language Delphi Library里补路径。3. 在 Delphi 13 里安装并跑通第一个 TMS 控件3.1 安装前的路径与权限准备Delphi 13 的 IDE 对包路径比老版本敏感尤其是同时装了多个第三方控件库时。我的习惯是先把源码放在一个不含中文、不含空格的路径下比如D:\DevLibs\tmsvclui_v13.5.6.0。中文路径在部分老版本编译器里会直接导致找不到单元这个血泪经验从 Delphi 7 时代就有。然后打开 IDE进Component Install Packages先别点 Add先确认Library Path里没有旧版本 TMS 的残留路径。旧路径会让编译器优先找到老 DCU出现「明明改了源码却不生效」的玄学现象。3.2 编译并安装设计期包安装顺序不能反先运行期包后设计期包。在 IDE 里打开运行期包的.dpk右键Build成功后再Install。接着打开设计期包同样Build再Install。安装成功后工具箱里会出现 TMS 分类。// 验证安装是否成功的最小工程代码 procedure TForm1.FormCreate(Sender: TObject); var Btn: TTMSFNCButton; // 具体类型名以你安装的控件为准 begin Btn : TTMSFNCButton.Create(Self); Btn.Parent : Self; Btn.Left : 20; Btn.Top : 20; Btn.Caption : TMS OK; end;逻辑说明这段代码不依赖设计期拖拽纯运行期创建控件能排除「工具箱注册了但运行期包没链接」的问题。参数说明Parent必须设置否则控件不显示如果你用的是 VCL 原生风格控件类型名换成对应的TTMSxxx即可。编译通过且窗体上出现按钮说明运行期链路是通的。3.3 把控件源码直接编进工程而不是装包有些团队不允许在 IDE 里装第三方设计期包这时可以走源码直编路线。做法是把需要的.pas单元复制到工程目录在.dpr里直接uses不引用任何 BPL。// 工程文件里直接引用源码单元避免运行时依赖 BPL program MyVCLApp; uses Vcl.Forms, uTMSControlUnit in src\uTMSControlUnit.pas, // 按实际单元名替换 uMain in uMain.pas {Form1}; {$R *.res} begin Application.Initialize; Application.MainFormOnTaskbar : True; Application.CreateForm(TForm1, Form1); Application.Run; end.逻辑说明这种方式的代价是编译变慢、EXE 变大好处是部署时只有一个文件也不会因为客户机上缺 BPL 而启动失败。参数说明in 路径里的路径要和你实际复制的目录一致如果单元之间有循环引用优先调整单元结构而不是硬加implementation引用。4. 从 Delphi 7 到 13 的迁移避坑字符集、高 DPI 与包冲突4.1 老工程升级后字符串乱码现象Delphi 7 工程升到 Delphi 13 后TMS 控件上显示的中文变成问号或方块。原因Delphi 2009 之后默认string是 UnicodeString老代码里大量AnsiString和隐式转换在迁移时被破坏。解决先把工程里所有ShortString、AnsiString显式替换为string再检查控件赋值处有没有PAnsiChar强转。TMS 新版本控件本身是 Unicode 的问题基本都在你的业务代码里。4.2 高 DPI 下控件错位现象在 150% 缩放的显示器上TMS 控件位置偏移、字体模糊。原因老工程没开高 DPI 感知或者开了但控件源码里的缩放逻辑和 VCL 自带缩放打架。解决在工程选项里设置Application Manifest DPI Awareness为Per Monitor v2然后确认 TMS 源码版本是否包含对应的高 DPI 修复。如果源码里某个控件的ScaleBy没实现直接改源码比等官方更新快。4.3 多个第三方包同时安装导致 IDE 启动崩溃现象装完 TMS 后 IDE 启动报「包加载失败」或直接闪退。原因两个包注册了同名控件类或者设计期包依赖的运行期包版本不一致。解决用Component Install Packages逐个禁用可疑包二分定位。确认冲突后要么统一升级到同一版本要么把其中一个改成源码直编不进 IDE。4.4 编译时报找不到System.Classes之类的基础单元现象命令行编译 TMS 源码包时报基础 RTL 单元找不到。原因dcc32没读到 Delphi 13 的库路径通常是环境变量或rsvars.bat没执行。解决在命令行先调用 Delphi 安装目录下的rsvars.bat再执行dcc32。这一步在 CI 里尤其容易漏。4.5 改了源码但运行没变化现象明明改了.pas重新编译后行为没变。原因编译器优先用了旧的 DCU或者 IDE 加载的是 BPL 而不是你改的源码。解决先Build All强制重编再检查Project Options Packages里有没有勾选运行期包如果勾了改成静态链接或重新编译 BPL。5. 把 TMS VCL UI Pack 用进真实项目的进阶手法5.1 用条件编译管理多版本 Delphi 兼容一套源码要同时支持 Delphi 7 和 Delphi 13靠的就是条件编译。TMS 源码里常见{$IFDEF DELPHI13}这类判断你自己封装控件时也要跟上。// 按编译器版本走不同实现避免升级时大面积改代码 {$IFDEF DELPHI13_UP} // Delphi 13 及以上走新 API Result : DoModernRender; {$ELSE} // 老版本走兼容路径 Result : DoLegacyRender; {$ENDIF}逻辑说明条件编译的边界要尽量小只包住真正有差异的那几行不要把整个方法包进去否则可读性会崩。参数说明DELPHI13_UP不是官方宏需要你在工程选项里自定义或者用官方版本宏组合判断。5.2 用源码级调试定位控件内部问题Full Source 最大的价值是能单步进控件内部。做法在 IDE 里把 TMS 源码目录加入Debugger Source Path然后在控件方法上下断点。注意要确保你调试的是源码编译出来的版本而不是预编译 BPL否则断点会灰掉。调试目标需要做的事常见失败原因控件绘制逻辑源码加入 Source Path用的是 BPL 版本事件触发顺序在源码事件处下断点优化编译导致行号偏移内存泄漏配合 ReportMemoryLeaksOnShutdown没编 DEBUG 版5.3 把常用控件封装成团队内部组件直接拖 TMS 控件会让业务代码和第三方库耦合。我的习惯是包一层自己的基类把 TMS 类型藏在private里对外只暴露业务属性。这样将来换控件库时改动集中在一层。type TMyEdit class(TTMSFNCEdit) // 继承 TMS 控件 private FFieldName: string; published property FieldName: string read FFieldName write FFieldName; end;逻辑说明继承而不是组合是因为 VCL 设计期需要published属性才能出现在 Object Inspector。参数说明FieldName这类业务属性放published纯内部状态放private避免污染设计期界面。5.4 验证升级是否安全的三个检查点升级 TMS 版本后不要只看能不能编译。我一般跑三个检查一是打开所有使用该控件的窗体看设计期有没有报错二是跑一遍高 DPI 和不同主题三是用源码里的示例工程做对照确认行为一致。这三步做完基本能挡住大部分升级翻车。说到底Full Source 版本的价值不在于省那点授权费而在于你拥有了出问题时自己动手的能力。我现在拿到任何第三方控件库第一反应都是先确认源码能不能编译、能不能调试不能的话就要重新评估要不要用。希望帮到你。本文还有配套的精品资源点击获取