简介面向 Delphi 512 各版本开发者EhLib v10.2.42 是一套成熟的 VCL 增强控件源码包用于解决网格、数据表格、工具栏等界面组件在不同 IDE 间的移植与复用适合控件二次开发者和中高级桌面工程师。资源包共收录 1877 个文件约 28.53MB其中 pas 源码、dfm 窗体定义、dpk/dproj 工程文件占多数另有 res、ico、chm 帮助文档及示例工程便于查看组件实现、重新编译安装或适配不同版本。包内结构按源码、设计时包、运行库、示例组织通过 dpk 工程可生成设计期/运行期组件res 与 ico 文件为界面外观和图标定制提供素材。开发者可结合帮助文档与示例项目对照组件属性、事件和底层绘图逻辑进行二次开发也能获得从旧项目迁移到新 IDE 时的编译排错思路。已有 234 人学习下载这套带完整源码和文档的控件包对需要统一维护多版本 Delphi 环境的团队很有参考价值。 拿到EhLib.v10.2.42 for Delphi 5-12.src.zip这个包我第一反应不是急着解压而是先愣了一下——D5 到 D12这跨度够夸张的。我算是从 Delphi 7 一路用到 Delphi 12 的人在 Delphi 生态被各种新语言冲淡的这几年还能看到一个控件库同时维护二十多年的编译链路确实不多见。尤其它还是src.zip完整源码包意味着你可以直接翻进去看控件内部怎么实现这在商业控件里相当罕见。如果你正在用原生 TDBGrid 写表格、做报表、到处导 Excel被折腾得够呛那这篇文章基本就是为你准备的。我会从“为什么选 EhLib”开始把源码包安装的完整过程、IDE 集成、Demo 验证、以及我实际使用中遇到的几个高频报错全部过一遍。不管你是刚入门 Delphi 的学生还是手里维护着十年老项目的开发这里都有能直接照抄的部分。1. 为什么还在一遍遍选 EhLibVCL 表格控件的选择逻辑1.1 原生 TDBGrid 到底缺了什么很多人刚开始写 Delphi 项目用的都是 TDBGrid毕竟它拖出来就能用绑个 DataSource 就能看到数据。但真到项目落地阶段你会发现它只解决了一个问题把数据“显示”出来。剩下的一切都是自己干。举个例子。客户说“表格要能按列排序”原生 TDBGrid 得自己写 OnTitleClick 事件拼 SQL 改 Order By客户说“我想点下拉框直接筛选”原生控件没这个能力得自己弹窗体客户说“表格底部要显示合计金额”对不起你得放一个 TLabel然后手动遍历数据集累加数值最后再想尽办法对齐列宽。这些需求在报表系统、进销存、ERP、财务软件里是刚需。做得多了你会发现工作量不是花在业务逻辑上而是花在“补原生控件的窟窿”上。EhLib 最核心的价值就是把这些反复出现的通用能力全部内置你不用再为每个项目重写一遍。1.2 EhLib 实际上替你干了哪三件事用我自己的话说EhLib 解决的是数据网格场景下的三类问题数据显示问题内置自动排序、列标题筛选类似 Excel 的筛选按钮、统计行总计/平均值/计数、单元格合并、树形展开、斑马纹、隔行变色、自定义单元格绘制。这些操作在 UI 层直接完成不需要打断数据集的状态。数据操控问题内置下拉列表支持多列下拉、自动查找字段、行状态提示插入/修改/删除标记、多选模式、鼠标拖拽选择区域、剪贴板复制粘贴甚至支持直接从 Excel 粘贴数据进去。这对录入类界面提升非常明显。数据输出问题这是原生 TDBGrid 最痛苦的地方。EhLib 内置了一个TDBGridEhExport体系一行代码就能导出 Excel、HTML、RTF、TXT、CSV还能调出打印预览直接打印当前网格。我最常用的SaveToExcel方法基本上让我告别了各种第三方 Excel 组件。1.3 v10.2.42 这个版本有什么说法10.x 系列是 EhLib 功能相对稳定的一代很多老项目从 5.x、6.x 升上来之后就一直待在 10.x。这里有个挺重要的点v10.2.42 源码包名里写着 “for Delphi 5-12”说明这套源码同时保留了各个版本编译器的兼容分支。你可能会问“我装的是 Delphi 12直接拿最新版不就行了为什么还要管 D5”这话对一半。正因为源码兼容老版本你在 Delphi 12 下编译出来的控件行为模式和十年前的项目保持一致。对于手里有旧项目要维护、又要用新 IDE 打开的人来说这种兼容性比新功能更值钱。Delphi 12 的 64 位编译支持也走得很顺后面我会专门提位宽的事。2. 安装前必须搞清楚的几件事2.1 先确认你的 Delphi 版本和编译位宽源码包安装的第一步不是解压而是确认环境。Delphi 12 默认的新项目是 64 位但 VCL 控件同时支持 32 位和 64 位目标。EhLib 这套源码在编译时会把不同位宽生成的.dcu、.bpl分开放所以你必须知道自己要装成哪种。我的建议是如果不是特殊原因32 位和 64 位都装一遍。尤其当你维护的老项目是 32 位编译、新项目跑 64 位时两套运行时库都得有否则切配置的时候找不到控件包烦死你。另外注意一下Tools Options IDE Environment Variables里可以临时切换 Delphi 的默认平台但真正决定你编译出来是什么位宽的是当前激活的 Target Platform。打开项目后在 Project Manager 左上角可以看到 Win32 还是 Win64。安装控件包时也要注意选择对应的平台再点 Compile。2.2 源码包和预编译包的区别以前有些控件商会直接发带.bpl、.dcu的二进制包你装上就能用不用自己编译。好处是省事坏处是基本没法调试也看不到内部实现。这次是src.zip也就是所有单元源码都在里面。源码包意味着几件事控件在 IDE 里运行时可以F7直接跟进控件源代码排查问题非常有用。你可以自己改源码比如给某个下拉框加个默认样式或者修改内置排序的逻辑。改完重新编译即可。同一个包自己编译可以自由选择编译器版本、位宽和运行时类型。代价是安装过程多了一步编译。但这步并不复杂只要你知道该打开哪个文件。千万不要手动把所有.pas文件都加进工程里编译EhLib 用的是包的机制不是那样玩的。2.3 解压后先认识目录结构这是我装完第一次使用后最想吐槽自己的一点当初没先看目录结构直接全盘乱找.dpk文件浪费了很多时间。实际上这份源码包解压之后主要包含这些目录目录作用安装阶段是否必须关注Common内部公共单元存放基础工具类和若干辅助函数须加入 Library PathDBGridEh核心网格控件源码须加入 Library PathDBAxes数据透视/交叉表相关功能按需添加DataDriverEh数据驱动层用于跨数据库适配按需添加ExportEh导出 Excel/HTML/RTF 等实现须加入 Library PathLib编译后生成的.dcu、.bpl存放目录编译后自动产生Resources控件图标、语言资源包不用管Packages存放各版本 Delphi 的.dpk包工程安装主要看这里知道这些目录你才不会在后面的搜索路径配置里漏掉文件夹。3. 源码包安装全过程一步步走完3.1 解压后的第一件事看 Install 说明源码包根目录下通常有Install.txt或类似说明文件。这一步容易被跳过但我强烈建议你花两分钟读一下。它至少能告诉你三件事当前版本官方支持哪些 Delphi 版本、有没有已知兼容问题、以及推荐的安装顺序。我自己遇到过一次情况某版本的 EhLib 源码包在 Delphi 10.4 下必须先安装一个公共运行时包再装控件包否则 IDE 会报 “Cannot load package ... 找不到指定的模块”。这种问题的官方说明里一般都会写清楚先看说明能少走很多弯路。3.2 用自带批处理自动编译能省一半事EhLib 源码包里通常会带安装脚本例如Install.bat或位于特定目录下的脚本。它的逻辑其实很简单先定位你机器上的 Delphi 编译器rsvars.bat或bds.exe所在路径然后按顺序把所有.dpk包括进去自动编译。使用批处理时右键选择“以管理员身份运行”会比较稳妥否则可能在往Program Files相关目录写入.bpl时被权限拦下来。安装过程中如果提示找不到 Delphi 版本通常是因为你的 IDE 没有安装命令行编译环境重新运行 Delphi 安装程序勾选 “Command-Line Tools” 组件即可。只用脚本安装有一个小缺点脚本往往只按它预设的平台和配置走比如只编 Release 版不会自动帮你装 32 位和 64 位两套。所以我通常把脚本当成“先把大部分包编好”的辅助手段装完之后还要再手动确认一下。3.3 手动编译的选件逻辑如果脚本跑失败或者你想精确控制编译参数那就走手动路线。打开 Delphi选择菜单File Open Project进入解压目录下的Packages文件夹。找到对应你 Delphi 大版本的.dpk文件。例如 Delphi 11 大概是EhLib110.dpkDelphi 12 对应EhLib120.dpk老版本 Delphi 7 则可能是EhLib7.dpk。规则不绝对以实际文件名为准。打开后在 Project Manager 里确认当前 Target Platform。如果只需要 32 位就选 Win32要 64 位就选 Win64。两个平台都装的话就分别切换后各编译一次。右键包工程先Compile再Install。Install这一步会把设计期包注册到 IDE装完之后 Delphi 的工具面板会出现一个 “EhLib” 分类页。注意如果你看到一个包是运行时包Run-time only那它只需要Compile不需要Install只有设计期包才需要Install到 IDE。3.4 搜索路径配置是重中之重装完包之后还有一步经常被漏掉把 EhLib 的源码目录加入 IDE 的Library Path。操作路径是Tools Options Language Delphi Library然后在Library path中加入以下目录以你的解压路径为准E:\DelphiLib\EhLib\Common E:\DelphiLib\EhLib\DBGridEh E:\DelphiLib\EhLib\ExportEh E:\DelphiLib\EhLib\DataDriverEh E:\DelphiLib\EhLib\Lib\Win32\Release如果漏了这步最典型的后果是控件安装成功IDE 面板上也有 EhLib 图标但你自己新建工程一放控件编译就报 “找不到 DBGridEh.pas/dcu” 或各种类型未定义。这就是编译器的搜索路径根本没有指向 EhLib 单元所在目录。另外多个 Delphi 版本共用同一份源码时Lib目录下最好按版本分文件夹存放避免不同版本编译出的.dcu互相覆盖。4. 装完之后的验证和第一个 Demo4.1 先从自带的 Demo 工程跑起别急着写代码源码包里一般都有Demos目录里面放着大量示例工程。这一步不是多余的因为 EhLib 的很多功能单靠看文档是体会不到的尤其是统计行、筛选、树形展示这些交互性强的功能你拖几个按钮在界面上点点看比读十页说明都有用。打开 Demo 工程后你先确认几个地方工程是否成功加载了 EhLib 的运行时包工具箱里是否有TDBGridEh、TDBComboBoxEh、TDBDateTimeEditEh等控件运行 Demo 时是否报找不到.bpl或.dcu。如果 Demo 能正常跑起来说明绝大多数安装环节已经 OK。Demo 里我建议重点关注这几个页面Statistical Functions看统计行如何配置合计、平均、计数AutoFilter看列标题旁边的筛选按钮如何工作Import/Export看如何导出 ExcelTree View看树形网格怎么构造父子关系。4.2 自己搭一个最小示例网格加数据三分钟验证一切Demo 跑通之后可以自己新建一个 VCL 工程从零拉一个网格测试。这才是验证“控件在你自己项目里能不能用”的关键一步。怎么测才算完整我一般这样操作在窗体上放一个TDBGridEh、一个TDataSource、一个TClientDataSet或者TFDMemTable看你的数据访问组件。在FormCreate里给TClientDataSet建两个字段例如“编号”和“金额”插入三行测试数据。将TDataSource.DataSet指向该数据集TDBGridEh.DataSource指向数据源。运行确认表格能正常显示数据。然后分别测试点击列标题看是否能排序在DBGridEh1.SummaryList.Active : True的情况下给金额列加上统计行确认底部合计正确调用导出函数确认 Excel 能正常生成。下面这段是最小验证代码的核心部分procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin // 准备内存表 FDMemTable1.FieldDefs.Add(ID, ftInteger); FDMemTable1.FieldDefs.Add(Amount, ftFloat); FDMemTable1.Open; for i : 1 to 5 do begin FDMemTable1.Append; FDMemTable1.FieldByName(ID).AsInteger : i; FDMemTable1.FieldByName(Amount).AsFloat : i * 100.0; FDMemTable1.Post; end; // 启用统计行 DBGridEh1.SummaryList.Active : True; DBGridEh1.SummaryList.Items[1].Typ : stSum; DBGridEh1.SummaryList.Items[1].DisplayFormat : #,##0.00; end;这里有个容易踩的坑SummaryList.Items的索引和列的Index可能不是一回事。你如果提前把列顺序调整过最好通过列名或DBGridEh1.Columns[i].FieldName去定位而不是默认索引。导出 Excel 的代码更简单常用的是这一行DBGridEh1.SaveToExcel(C:\Temp\output.xls);如果版本里没有这个快捷方法可以用DBGridEhExportAsText或导出单元里的SaveDBGridEhToExportFile函数效果类似。导出前记得表格里要有要导出的数据另外某些中文列名在导出后出现乱码通常和 Excel 文件编码有关后续可以手动指定字符集。4.3 常见装完不生效的三个坑安装过程本身没问题但很多人装完之后运行 Demo 仍然报错。我把踩过的高频坑列在这坑一工具箱里找不到控件。这通常意味着设计期包没有 Install 成功。回看 Project Manager确认你编译的包是否真的执行了Install而不是只Compile。有些包是运行时包本来就不显示在工具箱里需要确认你打开的是对应设计期的.dpk。坑二运行报 “Cant load package ... 系统找不到指定的文件” 或 “模块未找到”。这是运行时包没找到.bpl文件。把Lib目录下生成的.bpl文件夹路径加入系统 PATH或者直接放到你的程序输出目录里。最简单的验证是用 Delphi 的Tools Options Library里查看搜索路径补齐缺失目录。坑三编译提示 “File not found: Control.xx.dcu” 或各种类型重定义。这一般是源码目录里混入了不同版本的.dcu或者 IDE 的 Library Path 里同时存在多个 EhLib 解压目录。检查所有路径只保留当前要用的那份源码目录。5. 实际开发中的高频报错与排查思路5.1 “无效的授权说明”到底指什么有段时间我开发机上所有的 EhLib 控件运行到某个特定界面时都会弹出一个提示大意是“无效的授权说明”。当时第一反应是控件版本不对后来发现并不是。这类提示多出现在以下场景你使用了某个破解版的控件包或者源码包里自带的.dcu和当前编译器的运行时校验不匹配某些商业授权组件在 IDE 里检测不到 License 文件时会主动弹提示源码包里存在多个分包运行时引用了 design-time 的错误包。处理思路是先确认来源。官方渠道下载的源码包一般不会有这个问题。如果你是从项目交接目录或同事那里拷贝来的先对比文件和官方包的大小、目录结构是否一致。其次检查工程引用的包列表看看是否同时引用了两个不同版本的 EhLib 相关包。我遇到过一种情况是旧项目残留的EhLib100.dcp被 IDE 自动加进了 Requires 列表而当前装的是 10.2.42两个版本的内部数据结构不完全一致运行时就会报校验类错误。清理 Requires 里的重复包引用重新编译问题就消失了。5.2cannot perform this operation on an open dataset的排查这个报错和信息提示名字一样直接翻译过来就是“不能对已打开的数据集执行此操作”。很多新手会在 EhLib 网格环境里遇到它然后误以为是控件问题。实际上这个错误和网格控件本身没什么关系问题出在你对 DataSet 状态的处理上。典型场景是你在BeforeInsert、AfterScroll等事件里写了类似FDQuery1.Post、FDQuery1.Delete的代码当数据集正处于浏览状态时直接调用Delete会触发“数据集未处于编辑状态”或类似的内部检查最后在底层就抛出了这个错误。再比如TClientDataSet处于dsInactive状态时你不能调用First、Next、Post这些方法。用网格展示时如果DataSource.DataSet没有Open你拖动滚动条也会触发类似问题。排查思路分三步看调用栈定位是哪一行触发了这个操作检查该 DataSet 当前是Active还是Inactive确认操作的类型是否和状态匹配——浏览状态只能Next/First/Last编辑状态才能Post/Append/Delete。最常见的修法是在事件里加状态判断if not FDQuery1.Active then FDQuery1.Open; if FDQuery1.State in [dsBrowse] then FDQuery1.Edit; // 然后才允许修改或删除 if FDQuery1.State in [dsEdit, dsInsert] then FDQuery1.Post;个人经验是遇到这类问题先检查数据集状态和操作匹配再回头看控件配置不要一上来就卸载重装控件。5.3 编译通过但界面运行异常很可能是版本残留和缓存问题有时你装了新版 EhLib控件也能拖上去编译也不报错但运行时网格显示异常比如列头筛选按钮不见、滚动条行为怪异、统计行汇总不对。这种时候多数不是控件坏了而是 IDE 缓存了旧版本信息。在 Delphi 里.dcu文件是有缓存的。如果你之前装过旧版 EhLib新版本源码包又在同一路径下编译器可能优先读取了旧.dcu。解决办法在Tools Options Delphi Options Library里找到所有旧 EhLib 路径删掉删除Lib目录下所有旧的.dcu和.bpl文件关闭 Delphi清理%APPDATA%\Embarcadero\BDS\版本号\下的临时编译缓存或者直接重启开发机重新编译包安装再打开工程测试。这套操作每次升级控件版本我都会做一遍几乎没有失手过。另外如果你把源码包解压到 OneDrive、坚果云这类同步盘里编译时也可能因为文件同步锁定导致.dcu生成不完整。建议把控件源码放到本地普通目录例如C:\DelphiLib\别放同步盘。6. 进阶使用的一些个人习惯6.1 改动源码前先建立自己的分支src.zip最大的好处是可以改源码但这既是福利也是陷阱。我一开始兴致勃勃地给网格加了一个自定义颜色函数直接在DBGridEh.pas里改了代码。结果后来官方发布了修复补丁我想升级版本发现自己的改动被覆盖了还得重新 diff 一遍。后来我养成了一个习惯从src.zip解压后立马上层目录复制一份改名EhLib_custom在里面改代码。项目编译时Library Path 优先指向自定义目录官方更新时只对比两个目录的差异手动把官方的新改动合并进来。6.2 大数据量下先测试再上线EhLib 在处理几万行数据时依然流畅但如果你一次性把几十万行全部加载到内存表里再绑定网格界面照样卡成幻灯片。通用的优化思路是数据库层面分页配合LIMIT或者按主键游标取数、或者用TFDMemTable按需缓存、再或者使用 EhLib 自带的虚拟网格特性。另外统计行在数据量很大时会有性能开销。如果表格是每秒钟都在刷新数据统计行也会跟着每次都重算。此时最好偶尔刷新统计值而不是实时更新。这个虽然没有一个统一的开关但可以通过在数据刷新时临时设置SummaryList.Active : False刷新完再置True来达到目的。导出大数据量 Excel 时也建议分批写TStringList后一次性生成文本格式的表格文件尽量避免直接对 Excel 对象逐格写入否则效率很低。6.3 记住一个原则EhLib 是显示层业务规则别塞进控件事件最后说个设计层面的体会。EhLib 功能越强越容易让人图省事把业务逻辑写在网格的事件里比如在OnCellClick里操作数据库、在OnGetCellParams里判断权限状态。短期看是省了代码量但项目一多人维护就乱了。我会把控件事件里的代码尽量拆到独立的业务方法中网格只负责交互反馈。比如过滤数据的需求主体逻辑放到一个ApplyFilter方法网格的OnFilterChange事件里只调一次这个方法。这样将来换控件、换页面结构调整成本都在可控范围。这套源码包我前后用了不短时间最大的感受是成熟控件真正沉淀下来的不是功能数量而是让你在解决问题时少一点“不该出问题却偏要出问题”的折腾。源码在手遇到顽固 Bug 至少还有自己动手改一改的底气。本文还有配套的精品资源点击获取
