简介：本资源为TMS FNC UI Pack v7.1.1.0完整源码包，面向使用Delphi与C++ Builder进行跨平台界面开发的程序员，覆盖XE7至13 Florence版本。控件包提供现代化、触摸友好的UI组件，支持Windows、Mac、Linux、iOS与Android多平台，可帮助开发者快速构建响应迅速、风格可定制的应用界面。压缩包共约2000个文件，大小31.09MB，以pas源码、dproj与dpr工程文件、dfm与fmx窗体、res与ico资源、dcr组件包及html文档为主，另含csv、svg、png等辅助素材，结构完整便于按模块查阅。已有56人学习下载。完整源代码意味着开发者可自由修改与扩展组件，配合文档能深入理解实现机制，减少调试成本，适合希望深度定制界面或长期维护项目的Delphi开发者参考使用。
1. TMS FNC UI Pack 到底解决什么问题：Delphi 13.1 跨框架控件库的选型逻辑
如果你正在用 Delphi 13 Florence 做项目，大概率会遇到一个尴尬局面：VCL 项目里攒了一堆好用的控件，想迁到 FMX 做跨平台，发现全部要重写；或者反过来，FMX 上写好的界面逻辑，想复用到 VCL 桌面端，同样得推倒重来。TMS FNC UI Pack 就是冲着这个痛点来的——它是一套基于 FNC（Framework Neutral Components）架构的 UI 控件库，同一套控件源码可以同时跑在 VCL、FMX、LCL 甚至 Web 端，Delphi 和 C++Builder 的 XE7 到 13 Florence 全版本通吃。这次拿到的 v7.1.1.0 是 Full Source 版本，意味着你手里有完整的 Pascal 源码，不是编译好的 DCU 黑匣子，遇到玄学问题可以直接跟进去看。适合谁？适合那些维护着多套 UI 代码、想统一控件层、又不想被某个单一框架锁死的团队。
2. FNC 架构拆解与源码包结构：为什么 Full Source 比 DCU 值钱
2.1 FNC 的分层设计：Framework Neutral 到底中立在哪
要理解 TMS FNC UI Pack 的价值，得先搞清楚 FNC 架构的分层逻辑。传统 Delphi 控件要么绑 VCL，要么绑 FMX，控件的绘制、消息处理、输入响应全部直接调用框架 API。FNC 的做法是在中间加一层抽象：最底层是 FNC 核心运行时，负责定义统一的绘制接口、字体度量、鼠标键盘事件模型；中间层是各框架的适配器，VCL 适配器把 Windows 消息翻译成 FNC 事件，FMX 适配器把 FireMonkey 的 Canvas 操作映射到 FNC 绘制指令；最上层才是具体控件，比如 TTMSFNCGrid、TTMSFNCTreeView、TTMSFNCRichEditor 这些。
这个分层带来的直接好处是：你在 VCL 项目里给 TTMSFNCGrid 设置的列宽、单元格样式、排序逻辑，换到 FMX 项目里几乎原样能用，因为控件本身的代码是同一份，差异被适配器吃掉了。代价是性能上多了一层间接调用，极端场景下比如十万行级别的表格滚动，FNC 版本可能比原生 VCL 的 TStringGrid 慢一些。但实际业务里，这种量级的表格本来就该上虚拟模式，FNC 的虚拟模式支持是完整的，所以这个代价基本可以接受。
Full Source 版本的核心价值在于可调试性。DCU 版本遇到问题你只能猜，比如 TTMSFNCTreeView 在某个节点展开时闪退，你只能反复试参数、查文档、等官方回复。Full Source 版本你可以直接在 IDE 里 Step Into 到控件内部，看它是在哪个绘制阶段、哪次节点遍历时出的问题。我一般会把 FNC 源码目录加到项目的搜索路径里，编译时直接编源码而不是链接 DCU，这样断点能落到具体行号。代价是首次编译时间会变长，但调试效率的提升完全值得。
2.2 源码包目录结构与关键文件定位
拿到这个 rar 包之后，先别急着往 IDE 里装。解压出来看目录结构，典型的 TMS FNC UI Pack Full Source 包大概长这样：
TMS FNC UI Pack v7.1.1.0/ ├── Source/ │ ├── Core/ # FNC 核心运行时，框架无关的基础类 │ ├── VCL/ # VCL 适配器层 │ ├── FMX/ # FMX 适配器层 │ ├── LCL/ # Lazarus 适配器层 │ └── Controls/ # 具体控件实现，按控件名分目录 ├── Packages/ │ ├── Delphi13/ # 各版本对应的包工程文件 │ ├── Delphi12/ │ └── ... ├── Demos/ │ ├── VCL/ │ └── FMX/ └── Doc/关键目录是 Source/Core 和 Source/Controls。Core 里定义了 TTMSFNCCustomControl 这个基类，所有 FNC 控件都从它继承。Controls 下面每个控件一个子目录，比如 TTMSFNCTreeView 就在 Source/Controls/TreeView/ 里。Packages 目录下按 Delphi 版本分好了包工程，Delphi 13 Florence 对应 Delphi13 子目录，直接打开对应的 .dproj 编译安装就行。
有个细节要注意：FNC 的包是设计期包和运行期包分开的。运行期包（以 r 结尾，比如 TMSFNCUIPackR.dproj）提供控件运行时逻辑，设计期包（以 d 结尾）提供 IDE 里的控件面板注册和属性编辑器。安装顺序是先编译运行期包，再编译设计期包，顺序反了 IDE 会报找不到单元。
2.3 安装到 Delphi 13.1 的具体步骤
安装过程本身不复杂，但有几个地方容易翻车。先确认你的 Delphi 13.1 已经装了 Update 1 或更高版本，早期 13.0 的编译器对 FNC 某些泛型用法支持有问题。
第一步，把 Source 目录加到 IDE 的 Library Path 里。菜单 Tools → Options → Language → Delphi → Library，在 Library Path 里加上 FNC 的 Source 根目录和 Source/Core 目录。这一步是为了让编译器能找到 FNC 的单元文件。
第二步，打开 Packages/Delphi13 下的运行期包工程，右键 Build。如果报错说找不到某个 .inc 文件，检查 Source 目录是否完整解压，有些杀毒软件会把 .inc 当可疑文件删掉。
第三步，Build 通过后右键 Install 设计期包。安装成功后 IDE 的控件面板会出现 TMS FNC 分组，里面能看到 TTMSFNCGrid、TTMSFNCTreeView 等控件图标。
第四步，验证安装。新建一个 VCL Application，从面板拖一个 TTMSFNCGrid 到窗体上，编译运行。如果窗体上出现一个带表头和空单元格的网格，说明安装成功。如果控件显示为空白或者报 "Class TTMSFNCGrid not found"，大概率是运行期包没编译成功，或者 Library Path 里少了 Source/Core。
注意：Delphi 13.1 的 IDE 在安装第三方包之后，建议重启一次 IDE 再新建项目，否则控件面板的注册信息可能没完全刷新。
3. 核心控件实战：TTMSFNCTreeView 与 TTMSFNCGrid 的典型用法
3.1 TTMSFNCTreeView 绑定数据库数据的完整流程
TTMSFNCTreeView 是这套控件里用得最多的之一，它比 VCL 原生的 TTreeView 强在支持多列、节点内嵌按钮、复选框、以及虚拟模式加载。实际项目里最常见的需求是从数据库读层级数据填充树。假设你有一个部门表 Dept，字段是 ID、ParentID、DeptName，要构建成树形结构。
常见做法是用递归或者迭代方式先构建节点关系，再一次性挂到 TreeView 上。FNC 的 TreeView 提供了 BeginUpdate/EndUpdate 来批量操作，避免每加一个节点就重绘一次。
procedure TForm1.LoadDeptTree; var qry: TFDQuery; NodeMap: TDictionary<Integer, TTMSFNCTreeViewNode>; RootNode, ParentNode, NewNode: TTMSFNCTreeViewNode; DeptID, ParentID: Integer; begin // 关闭重绘，批量操作 TMSFNCTreeView1.BeginUpdate; try TMSFNCTreeView1.Clear; NodeMap := TDictionary<Integer, TTMSFNCTreeViewNode>.Create; try qry := TFDQuery.Create(nil); try qry.Connection := FDConnection1; qry.SQL.Text := 'SELECT ID, ParentID, DeptName FROM Dept ORDER BY ParentID, ID'; qry.Open; while not qry.Eof do begin DeptID := qry.FieldByName('ID').AsInteger; ParentID := qry.FieldByName('ParentID').AsInteger; // 创建节点，第一列显示部门名 NewNode := TMSFNCTreeView1.AddNode(nil); NewNode.Text[0] := qry.FieldByName('DeptName').AsString; NewNode.Data := Pointer(DeptID); // 把数据库 ID 存到节点上 // 根据 ParentID 挂到父节点下 if (ParentID = 0) or (not NodeMap.TryGetValue(ParentID, ParentNode)) then NewNode.Parent := nil // 根节点 else NewNode.Parent := ParentNode; NodeMap.AddOrSetValue(DeptID, NewNode); qry.Next; end; finally qry.Free; end; finally NodeMap.Free; end; finally TMSFNCTreeView1.EndUpdate; end; end;这段代码的逻辑说明：BeginUpdate 和 EndUpdate 之间所有节点操作不会触发重绘，对于几百个节点的树，性能差异非常明显。NodeMap 用来在 O(1) 时间内找到父节点，避免每次遍历整棵树。NewNode.Data 存了数据库主键，后续点击节点时可以直接取出来做业务查询。注意 AddNode(nil) 创建的是游离节点，之后通过设置 Parent 属性挂到树上，这个顺序不能反——先 AddNode 再设 Parent，如果先设 Parent 再 AddNode 会报错。
参数方面，Text[0] 表示第一列的文本，FNC TreeView 支持多列，Text[1]、Text[2] 对应后续列。如果你在 Columns 属性里配置了多列，记得给每列都赋值，否则空列会显示为空白。Data 属性是 Pointer 类型，存整数 ID 需要强制转换，取出来时用 Integer(Node.Data) 还原。
3.2 TTMSFNCGrid 的虚拟模式与大数据量渲染
TTMSFNCGrid 处理大数据量时必须开虚拟模式，否则几万行数据一次性创建单元格对象，内存直接爆掉。虚拟模式的核心是 OnGetCellData 事件，网格只创建可见区域的单元格，滚动时动态向你要数据。
procedure TForm1.TMSFNCGrid1GetCellData(Sender: TObject; ACol, ARow: Integer; var AValue: string); begin // 虚拟模式下，网格只请求可见区域的单元格数据 // ARow 从 0 开始，对应数据集的第 ARow 条记录 if (ARow >= 0) and (ARow < FDataSet.RecordCount) then begin FDataSet.RecNo := ARow + 1; // 数据集记录号从 1 开始 case ACol of 0: AValue := FDataSet.FieldByName('Code').AsString; 1: AValue := FDataSet.FieldByName('Name').AsString; 2: AValue := FDataSet.FieldByName('Amount').AsString; end; end else AValue := ''; end; procedure TForm1.FormCreate(Sender: TObject); begin TMSFNCGrid1.VirtualMode := True; TMSFNCGrid1.RowCount := FDataSet.RecordCount; TMSFNCGrid1.ColumnCount := 3; TMSFNCGrid1.Options := TMSFNCGrid1.Options + [goVirtualMode]; end;逻辑说明：VirtualMode 设为 True 后，网格不再为每个单元格维护独立对象，而是通过 OnGetCellData 事件按需拉取。RowCount 要提前设好，告诉网格总共有多少行，滚动条才能正确计算比例。OnGetCellData 里用 RecNo 定位数据集记录，这是最简单的做法，但 RecNo 在部分数据库驱动上性能不好，更好的方式是用书签或者维护一个 ID 数组。
参数上，ACol 和 ARow 是网格请求的列号和行号，行号从 0 开始。AValue 是输出参数，你给它赋什么，单元格就显示什么。如果某个单元格需要特殊样式，可以在 OnGetCellData 之后配合 OnCellBeforeDraw 事件改字体或背景色。
注意：虚拟模式下不要直接访问 TMSFNCGrid1.Cells[ACol, ARow]，这个属性在虚拟模式下行为不确定，所有数据交互都走 OnGetCellData。
3.3 跨框架复用：同一份代码在 VCL 和 FMX 下的差异处理
FNC 的口号是框架中立，但实际写代码时还是有一些差异要处理。最典型的是字体和颜色。VCL 下字体用 TFont，FMX 下也是 TFont，但 FMX 的 TFont 多了 FontFamily 的概念，VCL 下直接设 Name 就行。FNC 控件内部做了适配，你设 TMSFNCGrid1.Font.Name := 'Microsoft YaHei'，在 VCL 下生效，在 FMX 下也会映射到对应的字体族。
另一个差异是鼠标事件。VCL 的 OnMouseDown 给的是 Windows 消息坐标，FMX 给的是设备无关坐标。FNC 统一成了 FNC 自己的坐标系统，你在 OnCellClick 里拿到的 ACol、ARow 在两个框架下含义一致。
真正需要条件编译的地方不多，主要是文件路径和注册表操作。我一般会这样组织：
{$IFDEF MSWINDOWS} // Windows 平台特有逻辑，比如读注册表 {$ENDIF} {$IFDEF ANDROID} // Android 平台特有逻辑 {$ENDIF}FNC 控件本身不需要条件编译，你的业务代码里如果调了平台 API，才需要包起来。这样同一套窗体代码，VCL 项目编译出来是 exe，FMX 项目编译出来可以部署到 Android 或 iOS。
4. 避坑与排查：FNC 控件安装和运行时的五个血泪教训
4.1 坑一：设计期包安装后控件面板不显示
现象：编译安装都成功了，但 IDE 控件面板里找不到 TMS FNC 分组，或者分组在但控件图标是灰色的。
原因：最常见的是设计期包没有正确注册，或者 IDE 的包缓存没刷新。Delphi 13.1 的 IDE 在安装包之后，有时候不会立即更新面板，尤其是之前装过旧版本 FNC 的情况下，旧包的注册信息还残留在注册表里。
解决：先到 Component → Install Packages 里检查 TMS FNC UI Pack 的设计期包是否在列表里且勾选了。如果勾选了但面板不显示，取消勾选，关掉 IDE，删除项目目录下的 .dproj.local 和 __history 目录，重新打开 IDE 再勾选。还不行的话，在注册表 HKEY_CURRENT_USER\Software\Embarcadero\BDS\13.0\Known Packages 下找找有没有残留的 FNC 包路径，有就删掉再重装。
4.2 坑二：编译时报找不到 FNC 单元
现象：Build 包工程时提示 "Unit TMSFNCCore.pas not found" 或类似错误。
原因：Library Path 没配全。FNC 的单元分布在 Source/Core、Source/VCL、Source/Controls 等多个子目录，只加 Source 根目录不够，编译器不会自动递归搜索子目录。
解决：在 Library Path 里把 Source 下所有包含 .pas 文件的子目录都加进去。偷懒的做法是用通配符，但 Delphi 的 Library Path 不支持通配符，只能一个个加。我一般会写个批处理脚本，遍历 Source 目录下所有子目录，生成 Library Path 字符串，然后粘贴到 IDE 里。
4.3 坑三：TTMSFNCTreeView 节点多了之后展开卡顿
现象：树节点超过 500 个之后，点击展开父节点要等一两秒才响应。
原因：默认情况下 TreeView 在展开节点时会重新计算所有子节点的布局和绘制。如果节点没有排序或者没有启用虚拟模式，每次展开都是全量重算。
解决：开启 TreeView 的虚拟模式。设置 TMSFNCTreeView1.VirtualMode := True，然后在 OnGetNodeData 事件里按需提供节点文本。虚拟模式下 TreeView 只处理可见节点，展开操作是 O(可见节点数) 而不是 O(总节点数)。另外，如果节点文本是固定的，可以在加载完成后调用 TMSFNCTreeView1.Sort 做一次排序，排序后的树在展开时查找效率更高。
4.4 坑四：FMX 下控件显示模糊或错位
现象：同样的代码在 VCL 下显示正常，编译到 FMX（尤其是 Android 或高分屏 Windows）后，控件文字模糊、边框错位。
原因：FMX 的坐标系统是设备无关像素，VCL 是物理像素。FNC 控件内部虽然做了适配，但如果你的窗体在 FMX 下没有正确设置 Scale，或者控件的 Align 和 Anchors 配置不当，就会出现错位。
解决：检查窗体的 Scaled 属性，FMX 下建议设为 True。控件的 Align 尽量用 Client 或 Parent，少用绝对坐标。如果文字模糊，检查 TMSFNCGrid1.Font.Quality 属性，FMX 下设为 fqClearType 或 fqHighQuality。另外，FMX 的 TForm 有个 Quality 属性，设为 HighQuality 可以改善渲染效果。
4.5 坑五：Full Source 版本编译后 DCU 冲突
现象：之前装过 DCU 版本的 FNC，现在换成 Full Source 版本，编译时报 "Duplicate unit" 或者运行时行为异常。
原因：Delphi 的搜索路径里同时存在旧 DCU 和新源码，编译器优先链接了旧 DCU，导致源码修改不生效。
解决：彻底清理旧版本。到 IDE 的 Library Path 里删掉所有指向旧 FNC 目录的路径，到 Component → Install Packages 里卸载旧包，然后手动搜索硬盘上所有 TMSFNC*.dcu 文件并删除。重新安装 Full Source 版本后，在 Library Path 里确保源码目录排在所有 DCU 目录之前。
5. 进阶技巧：用 FNC 源码定制控件与调试运行时问题
Full Source 版本最大的乐趣是可以直接改控件源码。比如 TTMSFNCGrid 的默认单元格边距我觉得太宽，想改窄一点，直接打开 Source/Controls/Grid/TMSFNCGrid.pas，找到绘制单元格边框的那段代码，把边距常量改小，重新编译运行期包，所有用到这个控件的项目都会生效。这种改法比继承一个子类再覆盖绘制方法要直接得多，适合快速验证想法。
但改源码有个后悔药问题：下次升级 FNC 版本时，你的修改会被覆盖。我的习惯是改之前先复制一份原始文件到 Source/_backup 目录，改完后在代码里加注释标记 // MODIFIED: 2025-01-15，这样升级时能快速定位自己改过哪些地方。更好的做法是把修改做成补丁文件，用版本控制管理，升级时重新应用补丁。
调试运行时问题时，Full Source 的优势更明显。比如 TTMSFNCTreeView 在某个特定数据下崩溃，你可以在 IDE 里按 F7 单步进入控件内部，看它是在 AddNode 的哪个阶段、哪次内存分配时出的问题。我遇到过一种情况：节点文本包含特殊字符时，TreeView 内部的一个字符串处理函数会越界。DCU 版本只能看到 "Access violation" 然后一脸懵，Full Source 版本直接定位到具体行号，发现是长度计算时没考虑多字节字符。这种问题在中文环境下尤其常见，因为 Delphi 的 string 默认是 UnicodeString，但 FNC 内部有些地方还在用 AnsiString 的长度假设。
验证方法上，我一般会写一个最小复现工程，只放出问题的那个控件和最少的数据，然后在这个工程里调试。确认问题后，再决定是改源码、等官方更新、还是用子类覆盖。如果问题不紧急，我会在 TMS 的官方论坛搜一下有没有人遇到过，通常 Full Source 用户社区里已经有人踩过同样的坑。
从那以后我每次拿到 Full Source 版本的控件包，都强制走一遍：先备份原始源码，再建一个独立的测试工程验证基本功能，最后才集成到正式项目里。这样即使改源码改出问题，也能快速回滚。希望帮到你。
本文还有配套的精品资源，点击获取
