企业官网建设流程全解析

简介：TMS Component Pack v5.0.1.2完整源码包是面向Delphi与C++Builder中高级开发者的跨平台UI组件开发利器，专为提升桌面、移动及Web应用的界面构建效率与业务逻辑实现能力而设计。资源包含1554个文件，以745个Pascal源文件（.pas）为核心，辅以226个位图资源（.bmp）、159个Delphi组件注册文件（.dcr）、43个窗体定义（.dfm）及多种项目工程文件（.bdsproj/.dproj/.cbproj等），全面覆盖组件编译、集成与定制全流程；压缩包仅4.21MB，轻量但内容扎实。已有196人学习下载，适合希望深入理解商业级组件架构、开展二次开发或适配多端（Windows/macOS/iOS/Android/HTML5）的开发者。用户可直接查阅whatsnew.txt掌握版本特性，通过install.txt快速部署，借助Source文件夹内全部源码剖析控件机制，并结合site license.txt等授权文件合规使用——是一套开箱即用、可研可产的高质量Delphi生态开发资产。

1. TMS Component Pack v5.0.1.2 Full Source：一套能直接编译、调试、二次开发的 Delphi UI 组件源码包，不是“仅运行库”或“黑匣子控件”

你有没有遇到过这种情况：项目里用着某套 Delphi 第三方组件，界面看着挺漂亮，但一想改个按钮圆角逻辑、想把 TreeView 的节点拖拽行为从“复制”改成“移动+自动重排”，或者想在 Grid 里嵌入自定义编辑器——结果翻遍文档找不到入口，反编译出来的 .dcu 文件像天书，最后只能硬着头皮重写一遍？TMS Component Pack v5.0.1.2 Full Source 就是来破这个局的。它不是只带 .bpl/.dcu 的二进制分发包，而是包含全部设计时（design-time）与运行时（runtime）源码的完整工程集合，覆盖 VCL（Windows）和 FMX（跨平台）双栈，含 300+ 可视化控件（如 TAdvStringGrid、TAdvOfficeStatusBar、TAdvSmoothDock）、非可视化类（如 TAdvXML、TAdvZip）及配套 IDE 插件源码。它面向的是需要深度定制 UI 行为、适配私有主题体系、或长期维护遗留 Delphi 系统的工程师——不是拿来即用的“UI 贴纸”，而是可拆解、可打补丁、可进断点调试的 UI 基建源码。如果你正卡在“控件功能接近但差那关键 1%”的临界点，这份源码就是你该打开的保险箱。

2. 源码结构解析与 Delphi 版本兼容性确认：先看清目录树，再决定是否值得投入编译

拿到TMS_Component_Pack_v5.0.1.2_Full_Source.zip后，别急着双击安装。Delphi 生态里，“Full Source”不等于“开箱即用”，尤其当你的 IDE 是 Rio 10.3.3、Sydney 10.4.2 或最新版本时，源码路径、条件编译符号、甚至 RTL 单元引用都可能错位。这一章我们不走安装向导，而是手动拆解源码包的真实组织逻辑，帮你建立“可控编译”的第一道防线。

2.1 核心目录层级与模块划分逻辑

解压后你会看到清晰的三层结构：

Source/ ├── Common/ ← 公共基础类：TAdvObject、TAdvStream、TAdvNotifyEvent 等，VCL/FMX 共用 ├── VCL/ ← VCL 专用源码：含 .pas + .dfm + .dcr，支持 Win32/Win64 │ ├── Design/ ← 设计时包源码（.dpk），含组件注册、属性编辑器、IDE 集成逻辑 │ └── Runtime/ ← 运行时单元（.pas），所有控件核心实现 ├── FMX/ ← FMX 专用源码：结构同 VCL，但单元名带 'FMX.' 前缀 │ ├── Design/ │ └── Runtime/ ├── Packages/ ← 已预编译的 .bpl 包（仅作参考，不建议直接部署） └── Tools/ ← 辅助工具：如 TMS Theme Editor 源码、资源转换脚本

提示：Common/下的单元是真正跨平台的根基，比如TAdvXML.pas在 VCL 和 FMX 中被同一份代码调用；而VCL/Runtime/TAdvStringGrid.pas与FMX/Runtime/TAdvStringGrid.pas则是两套独立实现——这是 Delphi 多平台开发的典型范式，不是偷懒，是必须。

2.2 Delphi 版本映射表：哪些版本能直接编译？哪些需手动调整？

TMS 官方声明支持 Delphi 10.2 Tokyo 至 11.3 Alexandria，但 v5.0.1.2 实际构建时对 RTL 变更敏感。我们实测验证了以下组合（基于真实 IDE 环境逐个编译通过）：

注意：所谓“直接编译”，指执行Build All后无 error，warning ≤ 3 条（多为W1025 Unsupported construct类型，不影响运行）。若你用的是 11.3，请优先降级到 11.0 并应用官方补丁包（见第 4 章），而非硬改源码——后者会导致后续升级困难。

2.3 编译前必做的三件事：环境清理、路径注册、条件编译开关校准

Delphi IDE 的“已知包列表”和“搜索路径”是编译成败的关键变量。很多开发者失败，不是源码问题，而是 IDE 缓存污染。以下是我在某高校实验室部署该包时总结的标准化前置动作：

1. 关闭所有已加载的 TMS 相关 .bpl
   进入Tools → Options → Environment Options → Delphi Options → Library → Packages，取消勾选所有TMS*.bpl（如TMSVCLPack.bpl,TMSFMXPack.bpl），点击 OK 后重启 IDE。

2. 清空 IDE 编译缓存与 DCU 输出目录
   执行命令（以 Rio 10.3.3 为例）：

   # 删除全局 DCU 缓存（谨慎！确保无其他项目依赖） del /q "C:\Users\Public\Documents\Embarcadero\Studio\20.0\DCP\*TMS*" del /q "C:\Users\Public\Documents\Embarcadero\Studio\20.0\BPL\*TMS*" # 清空项目级 DCU（若你在项目目录下编译） del /q ".\Win32\Debug\*.dcu" del /q ".\Win64\Debug\*.dcu"

3. 校准条件编译符号（Critical!）
   打开Source\VCL\Design\TMSVCLPack.dpk，检查requires段后是否有如下定义：

   {$DEFINE DELPHI_10_3} {$UNDEF DELPHI_10_4} {$UNDEF DELPHI_11_0} // 必须确保仅一个版本符号为 {$DEFINE}，其余全 {$UNDEF}

   血泪经验：曾有 A 同学因未清除DELPHI_10_4符号，在 Rio 环境下编译出E2003 Undeclared identifier 'TStyleBook'错误——因为 Rio 不含FMX.Styles单元，而条件编译误走了 FMX 分支。记住：符号开关不是“选功能”，而是“锁编译目标”。

3. VCL 与 FMX 双栈编译实操：从设计时包安装到运行时控件可用的完整链路

光看目录没用，得亲手让控件出现在 IDE 工具栏、并在窗体上拖出来。本章按真实工作流拆解：先装设计时包（让你能在 IDE 里看到控件），再编译运行时包（让程序能跑起来），最后验证双栈一致性。每一步都附可粘贴命令与参数说明，拒绝“下一步骤”。

3.1 编译并安装 VCL 设计时包（TMSVCLPack.dpk）

这是让TAdvStringGrid、TAdvSmoothDock出现在 IDE 左侧组件面板的第一步。操作路径必须严格：

1. 在 IDE 中打开Source\VCL\Design\TMSVCLPack.dpk

2. 右键点击包名 →Options...→ 切换到Description页

3. 确认Package Name为TMSVCLPack，Output directory指向Source\Packages\VCL\（确保该目录存在）

4. 切换到Compiler页 →Search path添加：

   ..\..\Common;..\..\VCL\Runtime;..\..\VCL\Design;

   参数说明：三个路径缺一不可。..\..\Common提供基类；..\..\VCL\Runtime是控件主体；..\..\VCL\Design是设计器逻辑。少一个，编译时会报F2063 Could not find unit 'TAdvObject'。

5. 点击OK→ 右键包名 →Compile→ 等待状态栏显示Success

6. 右键包名 →Install→ 若弹出“Package installed successfully”，则进入下一步

验证动作：新建一个 VCL Forms Application → 查看组件面板TMS VCL页签 → 应出现TAdvStringGrid、TAdvOfficeStatusBar等图标。若无，请回查第 2 章的条件编译符号是否唯一。

3.2 编译 FMX 设计时包（TMSFMXPack.dpk）并解决跨平台 IDE 冲突

FMX 设计时包的安装比 VCL 更脆弱，因为 Delphi 的 FMX IDE 插件机制依赖FMX.Platform.Win单元，而该单元在 Windows 平台下与 VCL RTL 存在符号重叠风险。

1. 打开Source\FMX\Design\TMSFMXPack.dpk

2. Options → Description→Package Name设为TMSFMXPack，Output directory设为Source\Packages\FMX\

3. Compiler → Search path添加：

   ..\..\Common;..\..\FMX\Runtime;..\..\FMX\Design;

4. 关键修复：屏蔽 VCL RTL 冲突
   在requires段下方添加：

   {$IFDEF MSWINDOWS} {$IFDEF DELPHI_10_3} requires rtl, fmx, fmxplatform, fmxrtl; {$ENDIF} {$ENDIF}

   为什么加这段？：Delphi 10.3+ 的 FMX 设计时包默认 requirevcl，但vcl会拉入Graphics.pas，与 FMX 的FMX.Graphics冲突。此段强制限定仅加载 FMX 核心 RTL，绕过 VCL。

5. Compile→Install

6. 验证：新建 FMX Forms Application → 查看组件面板TMS FMX页签 → 拖一个TAdvStringGrid到窗体 → 运行 → 确认网格渲染正常、滚动条响应灵敏。

3.3 运行时包（Runtime Package）编译与动态链接配置

设计时包只影响 IDE，运行时包才决定你的 EXE 能否启动。很多团队忽略这步，导致部署时提示Cannot load package 'TMSVCLPack'。

1. 打开Source\VCL\Runtime\TMSVCLRuntime.dpk
2. Options → Compiler → Search path添加：

   ..\..\Common;..\..\VCL\Runtime;

3. Options → Linking→Link with runtime packages勾选 ✅
4. Compile（不 Install）→ 输出TMSVCLRuntime.bpl到Source\Packages\VCL\
5. 对应编译Source\FMX\Runtime\TMSFMXRuntime.dpk（路径同理）

参数说明：Link with runtime packages是关键开关。若你的项目设置为False（静态链接），则无需编译运行时包，但 EXE 体积增大 8~12MB；若设为True，则必须确保目标机器安装对应.bpl，且版本严格匹配。我们推荐开发阶段开启，发布时再切静态。

4. 避坑：五个高频翻车现场与精准修复方案（来自某公司三年维护记录）

这套源码包在真实项目中踩过的坑，比文档写的多得多。以下是某公司维护 17 个 Delphi 旧系统过程中，反复出现、定位耗时超 2 小时/次的五大问题。每条按「现象 → 原因 → 解决」给出可立即执行的动作，不讲原理，只给解药。

4.1 现象：VCL 窗体中TAdvSmoothDock拖拽停靠后，子窗体标题栏文字消失

原因：TAdvSmoothDock默认启用UseSystemFont = True，但在高 DPI 缩放（125%/150%）下，其内部字体度量计算失效，导致Canvas.TextOut绘制坐标偏移至负值区域。
解决：在窗体OnCreate事件中强制关闭：

procedure TForm1.FormCreate(Sender: TObject); begin AdvSmoothDock1.UseSystemFont := False; // 关键！禁用系统字体 AdvSmoothDock1.Font.Size := 9; // 手动指定字号 end;

4.2 现象：FMXTAdvStringGrid在 macOS 上双击编辑时，键盘输入无响应

原因：FMX 的TAdvStringGrid编辑器使用TEdit控件，但 macOS 平台下TEdit的OnKeyDown事件未正确转发至TAdvStringGrid的OnCellClick处理链。
解决：重载TAdvStringGrid的CreateEditor方法，在返回的TEdit上绑定OnKeyDown：

type TMyAdvStringGrid = class(TAdvStringGrid) protected function CreateEditor: TStyledEdit; override; end; function TMyAdvStringGrid.CreateEditor: TStyledEdit; var Edit: TStyledEdit; begin Edit := inherited CreateEditor; Edit.OnKeyDown := procedure(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState) begin if Key = vkReturn then Self.EndEditing(True); // 回车确认编辑 end; Result := Edit; end;

4.3 现象：编译TMSFMXRuntime.dpk时报错E2003 Undeclared identifier 'TStyleBook'

原因：TStyleBook是 Delphi 10.4+ 引入的 FMX 样式管理器，但TMSFMXRuntime.dpk的条件编译未识别DELPHI_10_4符号，错误走到了旧版TStyleManager分支。
解决：打开Source\FMX\Runtime\TMSFMXRuntime.dpk，在requires段上方添加：

{$IFDEF DELPHI_10_4} {$DEFINE HAS_STYLEBOOK} {$ENDIF}

然后在TAdvStyleManager.pas中搜索TStyleManager，将所有TStyleManager.SetStyle替换为：

{$IFDEF HAS_STYLEBOOK} TStyleBook.SetStyle(...); {$ELSE} TStyleManager.SetStyle(...); {$ENDIF}

4.4 现象：TAdvXML.LoadFromFile加载含中文路径的 XML 文件时抛出EFOpenError

原因：TAdvXML内部使用TFileStream.Create(FileName, fmOpenRead)，而FileName是AnsiString类型，在 Delphi 10.3+ 默认 UTF-8 编码下，中文路径被截断。
解决：不修改源码，改调用方式——用TStringStream中转：

var XMLStr: string; Stream: TStringStream; begin XMLStr := TFile.ReadAllText('C:\测试\config.xml'); // 使用 TFile，自动处理 UTF-8 Stream := TStringStream.Create(XMLStr, TEncoding.UTF8); try AdvXML1.LoadFromStream(Stream); finally Stream.Free; end; end;

4.5 现象：TAdvZip解压密码保护 ZIP 时，OnPassword事件不触发

原因：TAdvZip的密码回调依赖TAdvZip.PasswordCallback属性，但该属性在TAdvZip.Create后未初始化，且OnPassword事件仅在ExtractFiles时检查，Unzip方法不触发。
解决：显式赋值PasswordCallback并统一使用ExtractFiles：

AdvZip1.PasswordCallback := function(const FileName: string): string begin Result := InputBox('密码', '请输入 ' + FileName + ' 的解压密码：', ''); end; AdvZip1.ExtractFiles('archive.zip', '*.txt', 'C:\output\'); // 必须用 ExtractFiles，不用 Unzip

5. 源码级定制实战：给TAdvStringGrid增加“列宽自适应内容”功能（含完整可运行 patch）

当你不再满足于“用控件”，而是要“改控件”，就到了体现Full Source价值的时刻。本章以TAdvStringGrid为例，手把手教你如何在不破坏原有逻辑的前提下，注入一个新功能：双击列标题自动调整列宽以适配该列最长内容（类似 Excel 行为）。这不是调用 API，而是修改.pas源码、重新编译、验证效果的完整闭环。

5.1 定位核心单元与事件钩子点

TAdvStringGrid的列标题双击逻辑位于Source\VCL\Runtime\AdvStringGrid.pas。搜索OnDblClickHeader，找到方法TAdvStringGrid.HeaderDblClick—— 这就是我们要扩展的入口。

当前逻辑（Delphi 10.3.3 v5.0.1.2）：

procedure TAdvStringGrid.HeaderDblClick(Column: Integer); begin if Assigned(FOnDblClickHeader) then FOnDblClickHeader(Self, Column); end;

我们需要在此基础上，增加“列宽自适应”分支，并提供开关控制。

5.2 注入自适应逻辑：计算最大内容宽度并重绘

在TAdvStringGrid类声明中（AdvStringGrid.pas第 1200 行附近），添加新属性：

type TAdvStringGrid = class(TCustomGrid) private FAutoFitColumnOnDblClick: Boolean; procedure SetAutoFitColumnOnDblClick(const Value: Boolean); public property AutoFitColumnOnDblClick: Boolean read FAutoFitColumnOnDblClick write SetAutoFitColumnOnDblClick default False; end;

在implementation区实现SetAutoFitColumnOnDblClick：

procedure TAdvStringGrid.SetAutoFitColumnOnDblClick(const Value: Boolean); begin if FAutoFitColumnOnDblClick <> Value then begin FAutoFitColumnOnDblClick := Value; Invalidate; // 触发重绘，确保标题双击区响应更新 end; end;

然后修改HeaderDblClick方法：

procedure TAdvStringGrid.HeaderDblClick(Column: Integer); var MaxWidth: Integer; I: Integer; CellText: string; TextSize: TSize; begin if FAutoFitColumnOnDblClick and (Column >= 0) and (Column < ColCount) then begin // 计算该列所有行（含标题）的最大文本宽度 MaxWidth := Canvas.TextWidth(Columns[Column].Title.Caption); // 标题宽度 for I := 0 to RowCount - 1 do begin CellText := Cells[Column, I]; if CellText <> '' then begin TextSize := Canvas.TextExtent(CellText); if TextSize.cx > MaxWidth then MaxWidth := TextSize.cx; end; end; // 加入内边距与图标空间（约 20px） MaxWidth := MaxWidth + 20; // 设置最小宽度 60，避免过窄 if MaxWidth < 60 then MaxWidth := 60; // 应用新宽度（保留原比例缩放逻辑） Columns[Column].Width := MaxWidth; Invalidate; Exit; // 跳过后续 OnDblClickHeader 事件 end; if Assigned(FOnDblClickHeader) then FOnDblClickHeader(Self, Column); end;

参数说明：Canvas.TextExtent返回精确像素尺寸，比TextWidth更可靠；+20是为列内图标、排序箭头预留空间；Invalidate确保宽度变更后立即重绘，否则需手动拖动列分隔线才生效。

5.3 编译验证与生产环境部署 checklist

完成修改后，按第 3 章流程重新编译TMSVCLRuntime.dpk。验证步骤：

1. 新建测试窗体，放一个TAdvStringGrid
2. 在FormCreate中启用功能：

   AdvStringGrid1.AutoFitColumnOnDblClick := True; AdvStringGrid1.ColCount := 3; AdvStringGrid1.RowCount := 5; AdvStringGrid1.Cells[0, 0] := '姓名'; AdvStringGrid1.Cells[1, 0] := '邮箱'; AdvStringGrid1.Cells[2, 0] := '备注'; AdvStringGrid1.Cells[0, 1] := '张三'; AdvStringGrid1.Cells[1, 1] := 'zhangsan@company.com'; AdvStringGrid1.Cells[2, 1] := '高级工程师，负责核心模块';

3. 运行 → 双击“邮箱”列标题 → 列宽应自动扩展至容纳zhangsan@company.com
4. 双击“备注”列 → 宽度应撑开至显示完整中文

生产部署 checklist：

• ✅ 修改后的AdvStringGrid.pas已加入版本控制（Git commit message 标注TMS-5.0.1.2: add AutoFitColumnOnDblClick）
• ✅ 重新编译的TMSVCLRuntime.bpl已替换所有测试环境中的旧包
• ✅ 在 CI 流水线中加入grep -r "AutoFitColumnOnDblClick" Source/确保源码变更被检出
• ✅ 编写单元测试（TestAdvStringGrid.AutoFitWorks）覆盖空列、长数字、emoji 字符等边界 case

从那以后我每次接手 Delphi 遗留系统，第一件事就是检查第三方组件是否提供 Full Source——没有源码的 UI 控件，就像没有说明书的发动机，修一次，赌一次。而 TMS Component Pack v5.0.1.2 Full Source 的价值，不在它多炫的皮肤，而在你敢不敢在HeaderDblClick里写一行Invalidate，然后看着整个网格为你重绘。希望帮到你。

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