TMS Component Pack v8.3.4.0在Delphi XE10.2下的安装配置与实战指南

简介TMS Component Pack v8.3.4.0 XE10.2是一套面向Delphi与CBuilder开发者的商业级组件集合覆盖界面控件、数据绑定、图表、网格、报表、数据库访问等常见开发场景无论是快速原型还是完整项目均可灵活应用适合正在使用Delphi XE10.2 Tokyo编写Windows程序的中高级开发人员。压缩包内共收录两千个文件整体大小约为一百零三点四兆核心部分为一千六百七十三个Pascal源文件与一千零三十九个DCU编译单元同时包含窗体定义、资源文件、工程文件及用于不同版本构建的批处理脚本目录结构清晰便于快速定位所需组件或示例文件。其中.pas源文件便于阅读组件实现和二次开发.dcu预编译单元可直接集成使用另有数十个PDF文档作为参考说明。目前已有1201人学习下载。基于完整源码与编译脚本开发者既能深入定制高级表格、图表、导航等控件也能借助现成组件快速搭建界面与业务模块配合脚本还能在多个Delphi版本间自动切换构建显著缩短开发周期并降低维护成本。1. TMS Component Pack v8.3.4.0为什么 XE10.2 的老项目还离不开它项目还锁在 Delphi XE10.2 Tokyo 的时候界面上的网格、树、工具栏很多都是拿原生控件硬凑的排序要自己写、合并单元格要自己画、导出 Excel 要去调 COM。TMS Component Pack v8.3.4.0 就是针对这套 IDE 的现成控件包装上以后组件面板里直接多出 TAdvStringGrid、TAdvTreeView、TDBAdvGrid 这类高频控件不必再在原生 VCL 上手工叠加几十行功能代码。它适合维护老项目的工程师也适合刚转 Delphi、想快速把数据表格和报表做出来的人。新版本 IDE 的适配问题这里不展开本文只讲 XE10.2 下落地的完整过程和容易翻车的地方。2. 版本匹配先行为什么 v8.3.4.0 只认 XE10.22.1 锁版本背后的编译器差异Delphi 的第三方包不是解压就能用的东西。RAD Studio 10.2 Tokyo 对应的 IDE 版本号是 19.0而它的 Delphi 编译器主版本是 22.0生成的运行时包后缀和设计期包名称里都带有这个版本特征。TMS v8.3.4.0 在发布时就是针对 XE10.2 这一代编译链做的适配包里的.bpl、.dcp、.pas文件都是按这套编译器检查过的。如果你把 v8.3.4.0 强行装到 XE10.3 或更高版本上最常见的结局是编译时报F1026 File not found、Unit not found或者设计期包加载时就崩掉。这个现象和控件本身质量没关系纯粹是 bpl 的编译器版本和 IDE 内置 bpl 对不上。所以拿到资源的第一步不是急着装而是先确认目标 IDE 的版本。检查方法很简单打开 IDEHelp About看产品版本号或者看安装目录名XE10.2 默认是C:\Program Files (x86)\Embarcadero\Studio\19.0。数字 19.0 对应 10.2同一个 x86 目录下可以并存多个版本但 TMS 的安装路径配置必须指向当前 IDE 对应的版本目录。2.2 TMS 包内组件族一览v8.3.4.0 是一个完整的组件包集合不是只有一两个控件的精简包。按平时项目里常用到的组可以分成这几个类别后面选型时直接对照着找控件就行组件族代表控件典型用途表格与网格TAdvStringGrid、TDBAdvGrid数据展示、单元格合并、排序、导出树与列表TAdvTreeView、TAdvListView组织结构、目录树、导航菜单编辑与输入TAdvEdit、TAdvComboBox、TAdvMemo带校验、带按钮提示的输入框计划与时间TAdvScheduler、TAdvCalendar排班、日历视图对话框与消息TAdvMessageDialog替代原生 MessageBox样式统一工具栏与导航TAdvToolBar、TAdvOfficePager仿真 Office 风格的界面框架这套东西选择的面比较宽。大多数 Delphi 老项目里最常用的是第一行里的网格和第二行的树后面第五章会拿这两个做具体演示。要注意的是TMS 的控件普遍偏重型同一个窗体上超过三五个大数据量网格时内存占用和绘制开销会比原生 VCL 高出不少能用轻量方案的地方别硬堆。2.3 安装前先确认的三个点装之前花两分钟确认三件事能省掉后面大量排查时间。第一IDE 里是否已经装过其他版本的 TMS 控件。常见路径是 Components Install Packages打开后往下翻看有没有 TMS 相关的设计期包。如果已经有了更旧的版本先移除并关闭 IDE再安装 v8.3.4.0。两个版本的 bpl 同时注册轻则菜单重复重则直接起冲突。第二确认源码搜索路径里没有旧版本的 TMS Source 目录。Delphi 的 Library 路径是全局的旧路径在先、新路径在后会导致编译时找到一个混版的.pas文件报的错误非常难排查。第三检查系统环境变量BDS或BDSCOMMONDIR是否正常。很多第三方安装程序会读这个变量定位 IDE 目录变量丢了安装程序会报IDE not found。可以用环境变量编辑器看一眼值一般是C:\ProgramData\Embarcadero\Studio\19.0。3. 安装与配置从解压目录到组件面板出现 TMS 页3.1 解压与目录规划TMS 包拿到手通常是一个 zip 压缩包不要直接解压到 IDE 安装目录里。我一般会单独建一个工作目录比如D:\Components\TMS\v8.3.4.0把整个包解压进去。这样做的好处是卸载和升级都干净不想用了直接删掉目录、把注册的设计期包移除就可以不用碰 IDE 目录。解压完成后先看一眼目录结构。常见会看到这些子目录D:\Components\TMS\v8.3.4.0 ├── Source 编译器需要的 .pas 源码 ├── Bin .bpl 运行时包和设计期包 ├── Dcp 编译生成的 .dcp 文件 ├── Demo 官方示例工程 └── Docs 帮助和说明文档这一步不用急着复制文件后面配置路径是直接指向这个目录的。官方 Demo 很有价值尤其是Demo\UserInterface和Demo\Grid\Advanced这类工程能在你拿不定控件用法时提供一个最小可运行参照。3.2 32 位与 64 位平台分别配置XE10.2 支持 Win32 和 Win64 两个目标平台TMS 的包在两个平台下都能用但 IDE 的 Library 路径必须分别配置。这里是最多人漏掉的一步只配了 32 位切到 64 位编译时直接找不到单元。打开 IDE 的 Tools Options Delphi Options Library在 Platform 下拉框里分别选择 32-bit Windows 和 64-bit Windows然后把下面的路径加进去路径作用D:\Components\TMS\v8.3.4.0\Source编译器查找 TMS 源码单元D:\Components\TMS\v8.3.4.0\Dcp查找已编译的 .dcp 包文件D:\Components\TMS\v8.3.4.0\Bin运行期查找 .bpl 文件注意顺序。如果系统里还有其他路径也包含了同名单元TMS 的 Source 路径要放在更靠前的位置。Library 路径是编译期搜索顺序排在前面会被优先命中。3.3 设计期包注册路径配好后还需要把设计期包注册到 IDE 里组件面板才会出现 TMS 页签。打开 Components Install Packages Add定位到Bin目录下以dcl开头的.bpl文件例如dclTMSGrids.bpl、dclTMSChart.bpl。选中后点击 OKIDE 会加载这些包随后组件面板最右侧会出现一个新的 TMS 页签。如果 Add 之后弹窗提示依赖包找不到通常是因为运行期的非 dcl 前缀.bpl没有被加载。这个时候先取消注册重新检查上一小节的路径配置确认环境变量没有指向旧 IDE。仅仅注册设计期包还不够。如果项目运行时用的是动态加载方式或者部署到别的机器要把运行时包也勾选上。Install Packages 页面上会列出所有已注册的包TMS 的运行时包名称里不带dcl前缀建议保持默认全部勾选。这里有一个细节运行期包被 Exclude 会导致程序编译通过启动时却报找不到组件包。4. 常见问题与排查装完还报错的五个典型场景4.1 编译时提示 Cannot find unit TMSGrids现象安装流程全部走完组件面板里也能看到 TMS 页签新建项目拖一个 TAdvStringGrid 到窗体上编译时报Cannot find unit TMSGrids.pas。原因设计期包注册成功只能说明 IDE 加载了控件编辑器编译项目时还是要靠 Library 路径里的源代码来解析单元。最常见的情况是上一节里 64 位 Windows 平台的路径没有添加或者路径指向了旧版本目录。解决打开 Tools Options Delphi Options Library把 Platform 切换成 All platforms 分别确认。删除路径里所有指向旧版本的条目只保留 v8.3.4.0 的 Source 路径。改完路径后关闭并重新打开项目。这个操作不需要重启 IDE但有时设计期包缓存会作祟如果还是找不到就关闭 IDE 后删掉项目目录下的.dproj.local文件再试。4.2 安装包后 IDE 启动报 Access Violation现象注册完设计期包重启 IDE 时弹Access violation at address ...或者 IDE 能打开但一拖出 TMS 控件编辑器就崩溃。原因多数不是 TMS 本身的问题而是机器上残留了旧版本 bpl。两个版本的包都注册后IDE 在启动阶段加载所有设计期包名称相似但版本不同的 dcl 包互相打架或者包引用的资源文件缺失。解决在命令行下用bpl -uninstall一类参数处理并不通用更可靠的做法是手工清理打开 Install Packages把所有 TMS 相关条目移除关闭 IDE到C:\Users\用户名\AppData\Roaming\Embarcadero\BDS\19.0目录下找到*.txt里的包缓存文件把带tms字样的行删掉或直接备份后删除该文件。重新打开 IDE 再按上一节步骤重新注册。4.3 运行提示缺少 bpl现象编译通过程序在 IDE 里按 F9 能跑但生成的 exe 复制到别的目录双击后弹出缺少某个.bpl文件。原因项目工程里把 TMS 的运行时包设为动态链接方式这种情况下 exe 需要依赖对应 bpl。开发机上因为 bpl 在系统搜索路径里能启动换了目录或换台机器就找不到。解决如果只在本机用把 TMS 的Bin目录加到系统 PATH 即可但不推荐。更可控的做法是打开 Project Options Packages把运行时包列表里的 TMS 相关条目改为静态链接也就是让 IDE 把 TMS 代码直接编进 exe。这样 exe 会变大几 MB但部署环境干净得多。老项目里如果已经大量用了动态包可以统一把Bin目录里的文件复制到 exe 输出目录省去每个机器配路径的麻烦。4.4 VCL Style 下控件渲染异常现象项目启用了 VCL Styles 换肤原本正常的 TAdvStringGrid 表头颜色、滚动条样式和行高比例不对有些按钮在改主题后变形。原因x86 下 VCL Style 通过 hook 系统绘制接口工作TMS 的控件有大量自绘逻辑二者在某些绘制阶段互踩。尤其是tsLuna、tsSmoky这类对系统颜色要求较高的主题TMS 组件内置的 Office 风格会优先用自己的颜色方案和 VCL 主题默认色冲突。解决最省事的办法是对 TMS 控件关闭风格化让它们保持组件自带的绘制方式。例如 TAdvStringGrid 上有Style相关属性设置为tsOffice2007或tsOffice2010时明确指定一套风格不继承系统主题色。如果项目必须全局统一换肤优先用 TMS 自家配套的主题管理单元给 TMS 控件单独分配一组颜色常量而不是在 VCL Style 里硬调每个控件的颜色属性。4.5 中文乱码和字体缩放问题现象控件上中文显示成问号或者同一台机器上分辨率不同网格行高和字体大小对不上界面在 Windows 的 125% 缩放下错位。原因一部分是代码里早期把字符串写到文件时没有用 UTF-8 编码另一部分和 TMS 控件的Font.Charset默认值有关。项目从中文版系统换到西文系统后默认字符集不一致就会出乱码。解决统一在项目设置里指定字体推荐Microsoft YaHei UI或宋体并把Font.Charset显式设为GB2312_CHARSET或DEFAULT_CHARSET不要留空。Windows 缩放引起错位的问题通常要配合TForm.Scaled属性处理TMS 控件在高 DPI 下建议打开自身的AutoSize和AutoRowHeight至少在网格上打开这三个属性能让行高跟随字体变化。5. 实战数据库树、网格增强与多线程安全更新5.1 把数据库结构读进 TAdvTreeViewTAdvTreeView 是 TMS 包里做组织结构树很顺手的控件。它的节点类型不是原生 TTreeNode而是 TAdvTreeViewItemAPI 上比原生树更细支持Images、Tag和拖拽事件。这里演示一个从数据库读取部门表按父子关系建树的写法。这个例子里的关键选择是先把查询结果快照到内存再递归建树而不是一边遍历 DataSet 一边递归。原因是递归过程中如果再向同一个 DataSet 发查询外层游标会被破坏这是新手最容易踩的坑。uses System.Generics.Collections; type TDeptInfo record ID: Integer; ParentID: Integer; Name: string; end; procedure TForm1.AddDeptNode(Tree: TAdvTreeView; DeptList: TListTDeptInfo; AParentID: Integer; AParentNode: TAdvTreeViewItem); var I: Integer; Node: TAdvTreeViewItem; begin for I : 0 to DeptList.Count - 1 do begin if DeptList[I].ParentID AParentID then begin Node : Tree.Items.AddChild(AParentNode, DeptList[I].Name); Node.Tag : DeptList[I].ID; AddDeptNode(Tree, DeptList, DeptList[I].ID, Node); end; end; end; procedure TForm1.LoadDeptToTree; var Q: TFDQuery; Dept: TDeptInfo; DeptList: TListTDeptInfo; I: Integer; begin DeptList : TListTDeptInfo.Create; Q : TFDQuery.Create(nil); try Q.Connection : FDConnection1; Q.SQL.Text : SELECT dept_id, parent_id, dept_name FROM dept ORDER BY parent_id, sort_no; Q.Open; while not Q.Eof do begin Dept.ID : Q.FieldByName(dept_id).AsInteger; Dept.ParentID : Q.FieldByName(parent_id).AsInteger; Dept.Name : Q.FieldByName(dept_name).AsString; DeptList.Add(Dept); Q.Next; end; finally Q.Free; end; AdvTreeView1.BeginUpdate; try AdvTreeView1.Clear; for I : 0 to DeptList.Count - 1 do if DeptList[I].ParentID 0 then AddDeptNode(AdvTreeView1, DeptList, DeptList[I].ID, nil); finally AdvTreeView1.EndUpdate; end; DeptList.Free; end;逻辑说明先开一个 TFDQuery 把整张部门表查出来逐行复制到TListTDeptInfo然后释放查询对象。AddDeptNode里用双层循环找子节点数据量在几千行以内足够用。Node.Tag存的是 dept_id 主键后面点击节点时可以直接用 Tag 回查详细数据不用再拼节点标题字符串。需要注意的细节是BeginUpdate和EndUpdate成对出现大批量加节点时没有这对方法树会在每次 AddChild 时重绘几百个节点就有明显卡顿。如果部门表超过几万行这个 O(n^2) 的算法就吃力了可以先用TDictionaryInteger, TListTDeptInfo按 ParentID 分组把最外层 for 循环改成按字典查找速度提升非常明显。5.2 TAdvStringGrid 报表增强排序、导出与单元格合并TAdvStringGrid 在报表场景里比原生 TStringGrid 好用很多排序、导出、合并单元格都不用手工写。先看一段最常用的排序和导出设置begin // 按第 3 列数值升序排序1 和 2 列跟着一起换行 AdvStringGrid1.SortByColumn(3, sdAscending); // 表头固定行选择整行模式 AdvStringGrid1.FixedRows : 1; AdvStringGrid1.Options : AdvStringGrid1.Options [goRowSelect]; // 导出为 CSV 文件保留表头 AdvStringGrid1.SaveToCSV(report.csv, ;, True); end;参数说明SortByColumn的第一个参数是列索引从 0 开始第二参数是排序方向支持sdAscending和sdDescending。这个排序是整行联动排序不是只排一列所以不用担心行数据错位。SaveToCSV的三个参数分别是文件名、分隔符、是否包含表头用分号做分隔符可以避免中文报表内容里出现英文逗号时造成列错位。合并单元格的常见做法是调用网格的MergeCells方法。更可控的做法是给网格设置MergeSettings按列设置合并类型比如相邻行相同值自动合并。实际项目里如果你需要在已填充数据的基础上动态合并推荐先排序再合并否则相同的值分散在不同区域自动合并逻辑不会按你的预期工作。这块还有两个容易被忽略的属性AdvStringGrid1.Columns[I].Width控制列宽AdvStringGrid1.RowHeights[J]控制行高。报表类需求里固定列非常适合做首列序号列把首列设为goFixedVertLine和goFixedHorzLine后纵向滚动时可保持首列不动。5.3 多线程任务里更新 TMS 控件Delphi 多线程里最容易翻车的是在工作线程里直接改控件属性。TMS 控件绝大多数继承自 TWinControl绘制和消息处理都依赖主线程。工作线程里执行AdvStringGrid1.Cells[0, 0] : ...会偶发崩溃或界面不刷新。标准的解决办法是把更新动作丢回主线程。Synchronize 是同步等待Queue 是异步排队两者各有适用场景。下面的代码演示在后台线程做耗时计算完成后异步更新网格procedure TMyThread.Execute; begin // 耗时的取数、计算放在这里 while not Terminated do begin // 结果计算完成后用 Queue 异步回到主线程刷新 TThread.Queue(nil, procedure begin Form1.AdvStringGrid1.Cells[1, 1] : FResultText; end); Terminated : True; end; end;逻辑说明匿名过程里访问Form1和AdvStringGrid1都发生在主线程上下文所以这里更新控件是安全的。Queue是异步执行不会阻塞工作线程如果后续逻辑依赖刷新完成改用一个独立的 TThread.Synchronize 调用。高频更新场景下建议在工作线程里攒一批结果再一次性更新否则 Queue 积压太多回调界面反而会卡顿甚至内存上涨。控件的BeginUpdate和EndUpdate也能配合使用但注意它们只能在主线程里调用。6. 验证安装三个检查步骤和一条版本核对技巧6.1 最小复现工程装完先别急着打开老项目。新建一个空白 VCL 工程放一个 TAdvStringGrid 到窗体上运行起来确认能显示再放一个 TAdvTreeView 把上一节的建树代码跑通。这个最小工程一跑说明编译期、运行期、设计期三块都通了。如果这一步出问题问题大概率出在包版本或路径上还没到业务代码阶段。6.2 用版本 API 核对 bpl有时候项目里同时存在多个 TMS 的 bpl 文件IDE 里看的是逻辑名称磁盘上文件名相近容易乱。用下面这段代码读一下 bpl 的文件版本号能确认 IDE 实际加载的文件是不是 v8.3.4.0function GetBPLVersion(const AFileName: string): string; var Size, Handle: DWORD; Buffer: array of Byte; Fixed: PVSFixedFileInfo; begin Result : ; Size : GetFileVersionInfoSize(PWideChar(AFileName), Handle); if Size 0 then Exit; SetLength(Buffer, Size); if GetFileVersionInfo(PWideChar(AFileName), 0, Size, Buffer[0]) then begin if VerQueryValue(Buffer[0], \, Pointer(Fixed), Handle) then Result : Format(%d.%d.%d.%d, [HiWord(Fixed.dwFileVersionMS), LoWord(Fixed.dwFileVersionMS), HiWord(Fixed.dwFileVersionLS), LoWord(Fixed.dwFileVersionLS)]); end; end;代码里用到了 Winapi.Windows 和 Winapi.VersionInfo 两个单元。运行时在调试器里调用GetBPLVersion(D:\Components\TMS\v8.3.4.0\Bin\dclTMSGrids.bpl)返回的版本号跟资源版本对上就说明文件没错。这个小函数以后排查任何第三方包版本都能用。从那以后我每次换机器装 TMS都先走一遍最小工程再碰老项目确认路径和版本没问题才继续再也不靠“感觉装好了”来赌运气。v8.3.4.0 这个版本在 XE10.2 上已经非常成熟按前面几步把路径和包注册理顺它能老实陪你很久。希望这份流程帮到你。本文还有配套的精品资源点击获取