企业官网建设流程全解析

简介：TMS Component Pack v8.3.4.0 XE10.2是一套面向Delphi及C++Builder开发者的专业控件集合，覆盖网格、图表、报表、数据绑定、数据库导航等常见开发场景，并针对Delphi XE10.2 Tokyo进行了兼容与性能优化，可显著提升桌面及移动应用的构建效率。压缩包内共2000个文件，其中以Pascal源文件（.pas）、编译单元（.dcu）、窗体文件（.dfm）和图标资源（.res/.dcr）为主，同时包含BMP、PNG等图形素材以及一批自动化编译批处理脚本，整体约103.4MB。随包附带的movefiles.bat、compilexe10.bat等脚本，可用于在Delphi 2007至XE10等不同版本环境中快速完成组件的编译与部署，方便调试和二次开发。由于提供完整源代码，开发者既能系统学习TMS组件的内部实现与设计模式，也能按需裁剪或扩展功能，直接集成到自有项目中，减少重复开发成本。目前已有1202人学习下载，适合中高级Delphi开发者和组件库研究者深入学习使用。

1. 为什么你在 XE10.2 上找 v8.3.4.0 这个版本

老项目升级到 Delphi 10.2 Tokyo 之后，最容易卡住的不是业务代码，而是原来那套第三方控件能不能在新 IDE 里继续编译。TMS Component Pack v8.3.4.0 正是那个时期为 XE10.2 用户准备的一套全家桶式商业控件包，覆盖网格、工具栏、日历、对话框、皮肤切换等十多个组件族。标题里有版本号，就意味着安装不是「双击 next 到底」那么简单——装错版本、平台没选对、License 没激活，都会让你在组件面板里找不到任何 TMS 的页。这篇文章会从版本选型、安装注册、最小 Demo 到高频坑一次性讲清楚，适合刚接手 XE10.2 老工程、又不想被控件问题耗掉一周的人。

2. 全家桶里到底有什么：先把组件族和版本边界摸清

很多人在 XE10.2 上安装 TMS Component Pack 失败，不是因为安装程序本身出问题，而是没搞明白这套包在设计期和运行期分别以什么形态存在。装完你看不到「TMS」组件页，第一反应往往是激活，但真正的原因可能是你根本没安装到正确的 BPL 包。搞清楚组件划分和文件形态，后面所有操作才会顺。

2.1 按功能记住组件族，比记几十个控件名更耐用

TMS Component Pack 不是一个控件，而是一大批控件的合集。它按功能划分成若干组件族，每个族解决一类界面需求。我在项目里用得最多的是网格族，比如表格控件，适合做订单列表、配置表这类行列密集的数据展示；其次是被我拿来替代原生对话框的对话框族，调用一个方法就能弹出日期选择、进度窗口，省去自己拼界面的时间。

除了这两类，还有工具栏族、皮肤/外观族、日历族、任务面板族等。对新人来说，不需要全部记住，但要有一个「按族去找控件」的意识。安装时它允许你只选择需要的族，而不是把整个包全装上。这一步对减少设计期资源占用、降低多版本冲突都有帮助。

安装完成后，组件以两种形式存在：设计期包（BPL 文件）用来让 IDE 把控件显示到组件面板，运行期单元（DCU / 源码）用来让编译器在链接项目时能找到控件实现。IDE 里看不到控件，多半是设计期包没有注册成功；编译项目时提示找不到单元，多半是编译器搜索路径没配好。这两个问题会在后面章节专门展开。

2.2 v8.3.4.0 与 XE10.2 的版本边界：别拿新包装旧 IDE

版本号是这类控件最敏感的信息。v8.3.4.0 这套包是围绕 XE 时代编译器做的，它的安装程序会主动检测当前 IDE 的版本号，只有匹配时才会把对应平台的 BPL 文件注册进 IDE。我见过有人把下载到的 v9 或 v10 版本硬装进 XE10.2，结果安装程序直接提示版本不支持，或者装完后组件面板是空的。

如果你手头就是 v8.3.4.0 这个包，第一件事是确认它明确列出的 IDE 版本支持范围。常见做法是打开包内自述文件，或者用安装程序进入「组件选择」之前的检测页面看它认不认你的 IDE。这个方法比任何第三方教程都可靠，因为控件包对编译器版本的敏感度极高，每个小版本都可能引入编译指令或单元引用变化。

平台选择同样重要。XE10.2 的 IDE 是 32 位程序，但你的项目可以编译成 32 位或 64 位目标。安装时如果只勾选了 Win32 平台，之后想把项目切到 64 位发布，就会遇到「找不到 TMS 64 位运行期库」的错误。建议安装时直接把 Win32 和 Win64 都勾上，代价是磁盘占用多一些，但省掉了后面反复重装的麻烦。

2.3 安装目录与包文件形态：装完之后你要知道文件在哪

安装目录是很多人忽略的细节。TMS Component Pack 默认会装到公共文档目录下的某个子目录里，源码、运行期 DCU、设计期 BPL 分别放在不同的子目录中。有些项目为了统一管理，会把这些目录拷贝到自己的第三方库目录里，并且取消安装程序的默认注册，改为在 IDE 里手动添加路径。

如果采用手动方式，你要关注的不是「文件装在哪」，而是 IDE 里三处配置是否到位：

表格里这三项是安装程序的常规配置目标。如果安装程序替你做了，通常不需要手动改；但如果你的项目用了自定义输出路径，或者团队里有人习惯把第三方库放在网络盘，这三项就要逐个核对。多数「装了不能用」的问题，最后都能归到这三项中的某一项。

3. 把 v8.3.4.0 装进 XE10.2：从解压到 IDE 注册的完整流程

安装这一章，目标不是在 IDE 里看到「TMS 组件包已安装」的提示，而是打开窗体设计器，左侧组件面板确实出现 TMS 的页，并且拖一个新控件到窗体上不会报设计期错误。按下面的顺序做，每一步都有明确的检查点。

3.1 安装前检查：管理员权限、杀毒软件与 IDE 状态

安装这类带皮肤、HOOK 钩子的商业控件，最容易遇到的干扰是杀毒软件误报。它会拦截生成 BPL 时对 IDE 安装目录的写入，或者把带皮肤引擎的 DLL 当成风险文件隔离。安装前把 IDE 进程完全关闭，以管理员身份运行安装程序，并且给自己的第三方库安装目录加一个白名单，是能少踩非常多坑的预备动作。

还有一点：IDE 的补丁版本。XE10.2 的 IDE 安装过官方更新包之后，编译器的版本号会变。TMS 安装程序在检测版本时，会读取 IDE 的注册表信息，如果你装了更新的补丁但编号不在包的支持列表里，安装程序可能识别不了。遇到这种情况，检查 IDE 是否已更新到最新补丁通常能解决。

最后确认你没有同时安装两个版本的 TMS Component Pack。机器上残留的旧版本 DLL 或 BPL 会和新版本混在一起，组件面板里出现重复控件，或者拖控件时调用到旧代码，这类问题排查起来非常费时间。安装新版本前把旧版本卸载干净，比什么都重要。

3.2 安装向导里的三个关键选择：组件集、平台、源码目录

安装向导的运行逻辑并不复杂，需要注意三个决定后续使用体验的选择项。

第一个是组件集筛选。全选装上功能最全，但 IDE 启动时加载的设计期包会变多，启动速度下降，某些机器上还会引发 IDE 内存占用过高。我一般会只勾选当前团队用得上的族，把不常用的留到以后需要时再补装。补装不需要卸载重来，重新运行安装程序，勾上缺失的族即可。

第二个是目标平台。前面说过，Win32 和 Win64 建议都勾选。这里多说一句：IDE 本身是 32 位进程，所以无论你的项目最终发布成 64 位，设计期你拖拽控件时，IDE 加载的永远是 32 位版本的设计期包；64 位版本只是在编译你的项目时才会被链接。安装程序里勾选平台，本质是在安装对应平台的运行期文件，设计期包始终是 32 位。

第三个是源码目录。有些团队用分布式开发，成员机器没有共享目录，这时候把源码装到公共文档里，每个成员各自激活即可。有些团队会把源码统放到代码仓库里，安装时指定到这个目录，保证所有成员编译用的都是同一份源码。两种方式都可行，只要坚持「全团队一致」原则就行。

3.3 注册与激活：为什么装完面板还是空的

安装程序跑完后，打开 IDE 第一件事是去 Component > Install Packages 里确认 TMS 相关 BPL 是否出现在已安装列表。如果在，组件面板就会多出几个以 TMS 开头的页。如果列表里没有，说明设计期包注册失败，常见原因是安装程序以非管理员权限运行时没能写入 IDE 的注册表项。卸载重装，用管理员身份运行，这一步通常就解决。

如果在列表里但组件面板还是空的，一串钥匙图标也没有，接下来要查 License 状态。TMS 的控件在 IDE 里显示组件图标前，需要先激活序列号。激活入口一般在 IDE 主菜单里会有 TMS 下拉菜单，里面提供 License Manager 之类的子项，打开后能看到当前机器绑定的激活状态。没有正式序列号时，安装程序会装成试用模式，试用模式也能显示控件，但运行起来会不定期弹提示框。

激活时要特别注意网卡或硬盘序列号作为绑定依据的授权策略。换了机器硬件后需要先反激活再换机，否则授权会失效。我见过有同事在虚拟机里开发，把序列号激活在了虚拟硬件上，后来虚拟机迁移导致授权失效，折腾了大半天才通过技术支持重新激活。所以建议固定开发机，不要频繁迁移。

3.4 验证安装结果：用一个空白项目做冒烟测试

安装完不要急着打开老工程，先新建一个空项目，做一个 3 分钟冒烟测试，确认 TMS 控件真的可用。

操作上，新建 VCL 项目后，在组件面板找到 TMS 的网格族，拖一个表格控件到窗体，再拖一个按钮。按钮的 OnClick 事件里写一行给表格赋值的代码，然后编译运行。如果能编译通过且运行时不报「找不到许可证」之类提示，说明设计期和运行期都正常。这个空项目就当作以后排查问题的基准，老工程出问题时，用空项目对照，很容易区分是控件环境问题还是工程配置问题。

如果空项目就无法编译，先把报错信息抄下来。最常见的一类是链接时找不到某运行期单元。这不是安装没装好，而是工程的搜索路径没包含控件包目录。解决方法是在 Project > Options > Delphi Compiler > Search Path 里把安装目录下的源码路径加上，或者把路径加到 IDE 全局库路径里。这个问题会在避坑章节里再展开一次，因为它在老工程里出现的频率非常高。

4. 拖一个 TMS 控件到窗体：最小 Demo 与常用参数

安装是手段，用起来才是目的。以最有代表性的表格控件为例，写一个能看得到效果的最小 Demo，同时把设计期和运行期两种设置方式串起来。你理解了这一个控件，其他 TMS 控件的用法大多是同一套套路：属性控制外观，事件控制交互，方法控制运行时行为。

4.1 设计期拖拽与属性设置

新建一个窗体，把 TMS 的表格控件拖到窗体上，你会发现和原生 StringGrid 不一样的地方：它有列头排序、固定列、单元格合并这类现代表格特征。设计期在对象监视器里可以看到它暴露的属性比原生控件多出一倍以上，这是 TMS 控件最直观的优势，也是设计器里最容易让人迷失的地方，属性太多，反而不知道改哪个。

我习惯先固定几个核心属性：列数、行数、固定行数、列宽。对象监视器里找到 ColCount 和 RowCount 设为 4 和 10，把 FixedRows 设为 1，这样第一行会成为列头。设计期的好处是这些改动即时反映在设计器里，可以边改边看，不需要编译。列宽的设置稍微隐蔽一点，它是通过 Columns 集合展开后，选中某一列再改 Width 属性。

这些设计期属性，最后都会被 IDE 序列化到窗体文件的文本里。你手写代码和使用对象监视器设置，本质上改的是同一个东西。理解这一点后，下面的运行期赋值就很好理解了。

4.2 运行期填充数据的最小代码

下面这段代码演示了在 FormCreate 里给网格填充表头和两行数据。Delphi 的表格控件和原生 StringGrid 一样，用二维 Cells 数组访问单元格，但属性更多，排序和外观也更灵活。

procedure TForm1.FormCreate(Sender: TObject); begin // 设置基本行列结构 AdvStringGrid1.ColCount := 4; AdvStringGrid1.RowCount := 3; AdvStringGrid1.FixedRows := 1; // 第一行固定为列头，滚动时不消失 // 填充列头 AdvStringGrid1.Cells[0, 0] := '订单号'; AdvStringGrid1.Cells[1, 0] := '客户'; AdvStringGrid1.Cells[2, 0] := '金额'; AdvStringGrid1.Cells[3, 0] := '状态'; // 填充数据行 AdvStringGrid1.Cells[0, 1] := 'A1001'; AdvStringGrid1.Cells[1, 1] := '华东区'; AdvStringGrid1.Cells[2, 1] := '12800'; AdvStringGrid1.Cells[3, 1] := '已发货'; AdvStringGrid1.Cells[0, 2] := 'A1002'; AdvStringGrid1.Cells[1, 2] := '华南区'; AdvStringGrid1.Cells[2, 2] := '5600'; AdvStringGrid1.Cells[3, 2] := '待审核'; // 让列宽适应内容，并允许运行时拖动调整列宽 AdvStringGrid1.AutoSizeColumns(True, 0); AdvStringGrid1.Options := AdvStringGrid1.Options + [goColSizing] + [goRowSizing]; end;

代码逻辑分三段。前四行设置网格的列数、行数和固定行数，这是所有表格类控件的基础配置，顺序别反，先给行数列数，再给单元格赋值，否则可能越界。中间两段填充表头和数据行，Cells 的第一维是列索引，第二维是行索引，都从 0 开始。最后一段的设置值得注意，AutoSizeColumns 根据内容自动调整列宽，Options 里追加 goColSizing 和 goRowSizing，允许用户在运行时拖动行列边界改变尺寸。

参数说明：ColCount 和 RowCount 是设计和运行时都最常用的属性，控制行列总数；FixedRows 控制表头固定；Cells 是访问数据的核心属性；Options 是集合类型，里面几十个开关决定用户交互行为，比如排序、选择、拖拽列。初学者容易把 RowCount 和实际数据行数搞混，RowCount 包含表头行，需要记住这个边界。

4.3 通过事件响应单元格操作

网格显示数据只是第一步，实际业务里一般还需要用户点某个按钮或单击某个单元格做出响应。TMS 表格控件的事件比原生控件丰富，最常用的是 OnClickCell，它在用户点击某单元格时触发，事件参数里带行列坐标。

procedure TForm1.AdvStringGrid1ClickCell(Sender: TObject; ARow, ACol: Integer); begin // 只响应数据区的点击，固定行不做处理 if ARow <= 0 then Exit; // 给点击的整行换底色 AdvStringGrid1.RowColor[ARow] := clInfoBk; // 在标题栏显示当前选中的内容，方便现场确认 Self.Caption := Format('选中: 行%d, 列%d, 值=%s', [ARow, ACol, AdvStringGrid1.Cells[ACol, ARow]]); end;

事件参数 ARow 和 ACol 是点击位置的坐标，你不需要关心哪个单元格对应什么数据，控件已经帮你算好了坐标。代码里第一件事是过滤固定行，固定行是表头，用户点表头通常是想排序，不应该触发业务逻辑。RowColor 是 TMS 特有的属性，和原生 StringGrid 的 Canvas 绘制相比，通过属性设置行背景色省去大量绘图代码。最后用 Format 把坐标和值拼进 Caption，做一个轻量反馈。

这个事件的写法几乎可以平移到 TMS 的其他控件上：工具栏有 OnButtonClick，日历有 OnDateChange，对话框有 OnResult。规律就是控件暴露什么事件，你就在对象监视器里双击事件名生成骨架，然后往里填业务逻辑。不要去看几十个属性的介绍文档，直接从一个事件上手，效率高得多。

5. 装了不能用？五个高频坑与排查路径

TMS 这类商业控件绝大多数问题不是功能不会写，而是环境配置和环境残留引发的。这一章把我在 XE10.2 上最常遇到的五类问题列出来，每个都按「现象、原因、解决」的结构写，方便你直接对号入座。

5.1 组件面板里没有 TMS 页

现象：安装程序跑完了，IDE 里看不到任何和 TMS 相关的组件页。

原因分两类。一是设计期 BPL 没有成功注册进 IDE。安装程序写入注册表时需要管理员权限，如果当时以普通用户运行，注册动作被系统拦截，BPL 文件到了但注册表没写进去。二是杀毒软件拦住了安装程序对 IDE 安装目录的写入，导致 BPL 文件根本没有生成成功。

解决：先打开 Component > Install Packages，看已安装列表里有没有 TMS 的条目。有菜单但面板空白，检查 IDE 主菜单里是否有 TMS 菜单项，再检查激活状态。没有的话，以管理员身份重新运行安装程序，并确保安装目录在杀毒软件白名单里。装完重启 IDE，这一步经常有效。

5.2 编译提示找不到 TMS 单元文件

现象：新建项目可以编译，老项目一编译就报找不到 TMS 的 dcui 文件或某个扩展名的单元。

原因：老项目创建时，IDE 把第三方控件目录写进了工程的搜索路径。如果当时安装路径是公共文档默认目录，而你现在安装在自定义目录，或者拷贝了别人的工程文件但本机没配全局库路径，编译器就找不到源单元。

解决：把安装目录下的源码路径加进 Tools > Options > Environment > Library 的全局路径，所有项目就都能找到。如果不想全局影响，就在具体项目的 Project > Options > Delphi Compiler > Search Path 里加，适合不同项目用不同 TMS 版本的情况。注意，路径要指到包含源文件的目录，不是安装根目录。

5.3 32 位能编译，64 位就报错

现象：项目目标平台是 Win32 时一切正常，切换到 Win64 编译就找不到 TMS 的单元或提示库文件不匹配。

原因：安装时只勾选了 Win32 平台的运行期文件。64 位编译需要对应的 64 位 DCU 或源码，你没安装就没有。

解决：重新运行安装程序，在平台选择里勾上 Win64，安装完成后重新编译。这种情况在刚接手老项目时很常见，很多项目当初只在 32 位下开发，后来要出 64 位版本才发现控件没装全。

5.4 拖控件到窗体时提示设计期错误

现象：组件面板有 TMS 页，但把控件拖到窗体上，IDE 弹出错误框，说找不到某属性或某方法的实现，或者控件显示成灰色方块。

原因：运行期包版本和设计期包版本不对应。比如你机器上残留了旧版本 TMS 的运行期文件，IDE 加载设计期包时引用到了旧版本的运行时单元，出现编译冲突。另一个常见原因是 IDE 组件缓存没有刷新。

解决：卸载旧版本 TMS，清理安装目录和公共文档下的残留文件，重新安装 v8.3.4.0。安装后如果问题还在，把工程里手动引用过的旧 TMS 单元路径从搜索路径里移除，因为 IDE 会优先使用搜索路径里的文件，而不是安装目录里的新文件。

5.5 运行期弹授权提示框或功能被禁用

现象：程序能编译，能启动，但界面弹出一个提示框，说明 License 没找到，部分功能被禁用，试用期已到。

原因：License 没激活或激活失效。TMS 的授权以本机硬件标识为绑定依据，硬件变更、系统重装，或者多台电脑轮流用同一序列号，都可能让激活状态丢失。

解决：打开 IDE 的 TMS 菜单进入 License Manager，输入序列号重新激活，或者先反激活再激活。如果序列号绑定次数用尽，需要联系经销商解绑。这类问题要提前规划，给团队里每个人分配独立序列号，或者用浮动授权方案，不要所有人公用一个号。

6. 一个让 TMS 调试变容易的小习惯：用事件日志验证控件行为

最后分享一个我实际工作中受益最多的小习惯。TMS 控件属性多、事件多，很多交互逻辑你在设计期看不到效果，运行期又不确定某个事件有没有触发。我的做法是，凡是涉及到多控件联动的新功能，先在每个相关事件里插一行日志输出，用 Delphi 自带的 OutputDebugString 写到调试输出窗口，比打断点更省事，也适合跑着跑着检查控件状态。

uses System.SysUtils; procedure TForm1.AdvStringGrid1ClickCell(Sender: TObject; ARow, ACol: Integer); begin OutputDebugString(PChar(Format( 'ClickCell: row=%d, col=%d, value=%s [%s]', [ARow, ACol, AdvStringGrid1.Cells[ACol, ARow], FormatDateTime('hh:nn:ss', Now)]))); end;

这段代码在原来 ClickCell 事件基础上，把行、列、单元格值和当前时间拼成一行字符串，输出到调试器的事件日志里。做完这一步，你拖动表格、点击单元格、排序，日志里就有完整的事件顺序。排查「为什么排序后我的选中行颜色不对」这类问题时，看日志比在代码里翻半天快得多。

验证完成后，再把日志代码删掉或注释掉。也可以用编译指令把它包起来，只在 Debug 版本里输出，发布时不走这段逻辑：

{$IFDEF DEBUG} OutputDebugString(PChar(...)); {$ENDIF}

我在这类控件上吃过不少亏，最后总结出一条教训：凡是控件行为和预期不一致，永远先假设是环境配置问题，再去怀疑控件本身。TMS 这套控件在 XE10.2 上已经打磨得很成熟，大多数冲突都来自版本残留、路径混乱和平台缺失。你先用空项目验证环境，再用日志验证事件顺序，最后才回到业务代码去查逻辑，这条路能避开九成的冤枉时间。希望帮到你。

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