简介本资源为 Delphi 开发者专用的 EhLib 组件库 v5.2.84 完整安装包专为使用 Borland/CodeGear/Embarcadero 系列 IDEDelphi 5–2010、CBuilder 5–6、RAD Studio 2009–2010的中高级桌面应用开发者设计重点解决原生 TDBGrid 功能局限问题提供增强型数据展示、打印导出、多层分组、Excel 导入导出及本地化支持等核心能力。压缩包共 448 个文件涵盖 94 个 Pascal 单元pas、74 个窗体定义dfm、57 个界面图标bmp、56 个资源文件res以及各类项目工程文件bdsproj/dproj/dpk 等完整覆盖设计时组件注册、运行时库编译与示例集成全流程总大小仅 3MB轻量且即用。已有 272 人学习下载适合需快速嵌入专业级数据网格控件、定制报表界面或维护遗留 Delphi 企业系统的开发者。1. Delphi EhLib v5.2.84DBGridEh 不是“增强版 Grid”而是生产级数据可视化黑匣子的钥匙你有没有遇到过这种场景用原生 TDBGrid 做个带冻结列多级表头导出 Excel 的报表改了三天代码最后发现导出时中文乱码、合计行位置错位、双击编辑后焦点丢失——而隔壁组用 DBGridEh 两小时就上线了这不是玄学是 EhLib v5.2.84 这个被 Delphi 老兵私藏十年的组件库在底层用精细的绘制状态机、预分配内存池和事件钩子链把 VCL 数据绑定的脆弱性硬生生扛住了。它不替换 TDataSet也不重写数据访问层却让 DBGridEh 成为少数几个能稳定支撑万行实时刷新、支持自定义单元格渲染器、且导出格式与 Excel 2007 完全兼容的 Delphi 第三方 Grid 组件。适合正在维护金融后台、医疗HIS、工业SCADA等对表格交互稳定性要求极高的 Delphi 项目团队也适合想绕过 FireMonkey 跨平台陷阱、专注 Windows 原生性能的桌面开发者。它不是玩具是经过某高校实验室五年产线验证、某公司 ERP 系统连续七年未升级仍稳定运行的“工业级表格引擎”。2. DBGridEh 的核心价值为什么 v5.2.84 是当前最稳的落地版本2.1 从源码结构看 v5.2.84 的工程取舍放弃“新特性”换“零崩溃”EhLib 的版本演进不是线性的。v6.x 系列引入了对 High DPI 的深度支持但代价是重写了整个绘制管道导致在某些老旧显卡驱动如 Intel GMA 3150下出现 GDI 资源泄漏v4.x 则缺少对 Unicode 文件名导出的支持。而 v5.2.84 是一个明确的“分水岭版本”它在 v5.2.0 基础上修复了 37 个已知崩溃点官方 patch notes 明确列出关键修改包括TDBGridEh.DrawCell中移除了对Canvas.Font.PixelsPerInch的强制同步调用避免 DPI 切换时 GDI 对象句柄失效TEhExportToExcel.ExportToExcel内部将OleVariant参数封装改为SafeArray直接传递解决 Excel 2016 COM 接口变更引发的0x80020009错误TEhBandedGridColumn.SetWidth新增宽度校验阈值 10px 自动设为 10防止列宽归零后触发WM_PAINT死循环。这些改动不新增 API但让组件在 Windows 7/10/11 全系、Delphi 2007–10.4 全版本中实测崩溃率低于 0.003%基于某公司 2023 年内部灰度数据。如果你的项目还在用 Delphi 2009 或 XE2v5.2.84 是唯一无需修改现有OnDrawCell逻辑就能直接替换原生 Grid 的版本。2.2 DBGridEh 与原生 TDBGrid 的能力对比不是“多几个属性”而是架构级差异能力维度原生 TDBGridDBGridEh v5.2.84启用 EhLib生产意义列冻结仅支持左侧冻结且冻结区无法滚动左/右/上下四向冻结冻结区可独立水平/垂直滚动医疗检查单需固定患者信息列 滚动查看数百项检验指标表头分组无支持多级嵌套表头Band Header可拖拽调整层级财务报表中“本期发生额”下分“借方”“贷方”再细分“现金”“银行存款”等子项单元格渲染仅OnDrawDataCell无背景/边框控制OnDrawCellBackground/OnDrawCellBorder/OnDrawCellContent三阶段钩子实现“超限值标红底色加粗字体右侧显示警告图标”的复合渲染逻辑导出能力仅文本或简单 CSV原生导出 .xlsx无需 Excel 进程、.pdf内嵌字体、.html带 CSS 样式银行对账单需保留千分位、货币符号、合并单元格且必须符合监管 PDF 归档规范数据绑定容错DataSource断开即报 EDatabaseError提供OptionsEh.poAllowInactiveDataSource允许 DataSource 为空时显示空网格工业 SCADA 系统网络中断时界面不崩溃仅显示“离线”提示提示v5.2.84 的TEhBandedGridColumn默认启用Options [goEditing, goAlwaysShowEditor]这与原生 Grid 的goEditing行为不同——它会在单元格获得焦点时立即弹出编辑器而非等待双击。这是为触摸屏设备优化的设计若你的项目仍用鼠标操作需手动关闭goAlwaysShowEditor否则会误触发编辑。2.3 安装与集成三步完成“无感替换”EhLib v5.2.84 的安装包包含.dpkDelphi Package和.bpl编译后包适配 Delphi 2007 至 10.4。安装过程不修改 IDE 注册表纯文件级部署# 步骤1解压后进入对应 Delphi 版本目录以 Delphi 10.4 为例 cd \EhLib_v5.2.84\Source\D104 # 步骤2用 IDE 打开 EhLibD104.dpk点击 Install首次需勾选 Rebuild as needed # 此操作会编译并注册组件到 Tool Palette组件名前缀为 Eh # 步骤3在已有窗体中删除原 TDBGrid从 Tool Palette 拖入 TDBGridEh # 右键 TDBGridEh → Edit Columns... → 自动生成列映射自动识别字段类型、标题、宽度关键细节不要直接复制.pas文件到项目中编译——EhLib 内部大量使用{$IFDEF}编译指令区分 Delphi 版本手动引用会导致EhLibConst.pas中的EhLibVersion常量未定义必须在项目.dpr文件的uses中显式添加EhLib, EhDBGrid, EhBandedGrid即使 IDE 自动补全了EhDBGrid漏掉EhLib会导致TEhExportToExcel创建失败若项目启用了Runtime Packages需在 Project → Options → Packages → Runtime packages 中添加EhLibXX.bplXX 为版本号如EhLibD104.bpl否则运行时报Cannot load package EhLibD104。3. 快速上手用 DBGridEh 实现一个带冻结列导出的生产级表格3.1 创建基础数据模型与绑定我们以“设备巡检记录表”为例需求左侧冻结“设备编号”“巡检员”两列右侧显示 20 项检测参数支持一键导出为 Excel。数据源为TClientDataSet字段结构如下字段名类型说明DeviceIDstring设备唯一编号冻结Inspectorstring巡检员姓名冻结Temp_Cfloat温度℃Pressure_kPafloat压力kPaStatusstring状态正常/告警/故障// 在窗体声明中 private FDataSet: TClientDataSet; FGrid: TDBGridEh; // 创建数据集模拟数据 procedure TForm1.CreateSampleData; begin FDataSet : TClientDataSet.Create(Self); FDataSet.FieldDefs.Add(DeviceID, ftString, 20); FDataSet.FieldDefs.Add(Inspector, ftString, 15); FDataSet.FieldDefs.Add(Temp_C, ftFloat); FDataSet.FieldDefs.Add(Pressure_kPa, ftFloat); FDataSet.FieldDefs.Add(Status, ftString, 10); FDataSet.CreateDataSet; // 插入 500 条模拟数据... end; // 绑定到 DBGridEh关键启用冻结 procedure TForm1.BindGrid; begin FGrid : TDBGridEh.Create(Self); FGrid.Parent : Self; FGrid.Align : alClient; FGrid.DataSource : DataSource1; // 已关联 FDataSet 的 TDataSource // 启用冻结前两列为冻结列 FGrid.OptionsEh : FGrid.OptionsEh [eoFixedCol]; FGrid.FixedCols : 2; // 冻结前两列 // 设置列标题与宽度自动映射后手动调整 with FGrid.Columns[0] do begin Title.Caption : 设备编号; Width : 120; end; with FGrid.Columns[1] do begin Title.Caption : 巡检员; Width : 100; end; end;逻辑说明eoFixedCol是冻结功能的开关必须显式添加仅设FixedCols : 2不生效FixedCols值为整数表示从左往右冻结的列数FixedCols : 0时冻结失效列宽单位为像素v5.2.84 中Width属性最小有效值为 10小于 10 会被自动修正见 2.1 节。3.2 实现状态列的条件渲染用三阶段钩子替代 if-else原生 Grid 的OnDrawDataCell只能画整个单元格而 DBGridEh 的三阶段钩子让我们能精准控制背景、边框、内容// 在窗体中声明 procedure TForm1.DBGridEh1DrawCellBackground(Sender: TObject; const Rect: TRect; Column: TColumnEh; State: TGridDrawState; var DefaultDraw: Boolean); begin if Column.FieldName Status then begin case FDataSet.FieldByName(Status).AsString of 正常: Sender.Canvas.Brush.Color : clLime; 告警: Sender.Canvas.Brush.Color : clYellow; 故障: Sender.Canvas.Brush.Color : clRed; else Sender.Canvas.Brush.Color : clWindow; end; Sender.Canvas.FillRect(Rect); // 填充背景色 DefaultDraw : False; // 阻止默认绘制由我们控制内容 end; end; procedure TForm1.DBGridEh1DrawCellContent(Sender: TObject; const Rect: TRect; Column: TColumnEh; State: TGridDrawState; var DefaultDraw: Boolean); begin if Column.FieldName Status then begin Sender.Canvas.Font.Color : clBlack; Sender.Canvas.Font.Style : [fsBold]; // 状态文字加粗 DrawText(Sender.Canvas.Handle, PChar(FDataSet.FieldByName(Status).AsString), -1, Rect, DT_CENTER or DT_VCENTER or DT_SINGLELINE); DefaultDraw : False; end; end;参数说明Rect是单元格的客户区矩形坐标系原点为 Grid 左上角State包含gdSelected,gdFocused,gdHotTrack等标志可用于实现“选中时高亮边框”DefaultDraw : False是关键它告诉 DBGridEh “这部分我来画别插手”否则背景和内容会叠加绘制。3.3 一键导出 Excel绕过 COM直写 .xlsxv5.2.84 内置TEhExportToExcel无需启动 Excel 进程导出速度比 COM 方式快 5–8 倍且无权限问题procedure TForm1.ExportToExcelClick(Sender: TObject); var Export: TEhExportToExcel; FileName: string; begin Export : TEhExportToExcel.Create(Self); try Export.Grid : FGrid; Export.Title : 设备巡检记录表; Export.SubTitle : Format(生成时间%s, [DateTimeToStr(Now)]); // 关键配置确保中文不乱码 Export.UTF8Encoding : True; // 启用 UTF-8 编码v5.2.84 新增 Export.IncludeHeader : True; Export.IncludeFooter : False; // 导出路径用户选择 SaveDialog1.Filter : Excel 文件 (*.xlsx)|*.xlsx; if SaveDialog1.Execute then begin FileName : SaveDialog1.FileName; if not SameText(ExtractFileExt(FileName), .xlsx) then FileName : ChangeFileExt(FileName, .xlsx); Export.ExportToFile(FileName); ShowMessage(Format(导出成功共 %d 行数据。, [FDataSet.RecordCount])); end; finally Export.Free; end; end;逻辑说明UTF8Encoding : True是 v5.2.84 解决中文乱码的核心开关必须设置否则导出的 .xlsx 在 Excel 中打开显示为方块ExportToFile是阻塞式调用大数据量10 万行时建议用ExportToStreamTThread异步导出避免界面假死导出的 .xlsx 文件可直接被 WPS、LibreOffice、Excel 2007 读取且保留冻结列、列宽、字体大小等样式。4. 避坑指南DBGridEh v5.2.84 的五个血泪经验4.1 现象Grid 列宽拖拽后重启程序宽度复位原因v5.2.84 默认不持久化列宽SaveColumnWidths属性为False且OnColumnWidthChanged事件未被触发。解决在窗体OnCreate中加载上次保存的宽度在OnDestroy中保存// 保存列宽JSON 格式存于 INI 文件 procedure TForm1.SaveColumnWidths; var Ini: TIniFile; I: Integer; begin Ini : TIniFile.Create(ChangeFileExt(ParamStr(0), .ini)); try for I : 0 to FGrid.Columns.Count - 1 do Ini.WriteInteger(ColumnWidth, Format(Col%d, [I]), FGrid.Columns[I].Width); finally Ini.Free; end; end;4.2 现象启用eoRowHighlight后鼠标悬停行背景色与选中行冲突原因eoRowHighlight和goRowSelect共享同一套高亮逻辑RowSelect优先级更高导致悬停失效。解决禁用goRowSelect改用OnMouseMove手动高亮procedure TForm1.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Row: Integer; begin Row : DBGridEh1.MouseCoord(X, Y).Y; if (Row 0) and (Row DBGridEh1.RowCount) then begin DBGridEh1.SelectedRows.Clear; DBGridEh1.SelectedRows.CurrentRowIndex : Row; end; end;4.3 现象导出 PDF 时长文本列内容被截断不换行原因TEhExportToPDF默认WordWrap : False且MaxWidth未根据纸张宽度计算。解决导出前动态设置ExportPDF : TEhExportToPDF.Create(Self); try ExportPDF.Grid : FGrid; ExportPDF.PageSetup.PaperSize : psA4; ExportPDF.WordWrap : True; // 必须开启 ExportPDF.MaxWidth : Trunc(210 * 3.78); // A4 宽度 210mm × 3.78 px/mm ExportPDF.ExportToFile(report.pdf); finally ExportPDF.Free; end;4.4 现象TDBGridEh在TPageControl的某个 Tab 上首次显示时空白原因v5.2.84 的Paint逻辑依赖HandleAllocated而 Tab 页面切换时Handle可能未创建。解决在TPageControl.OnChange中强制刷新procedure TForm1.PageControl1Change(Sender: TObject); begin if PageControl1.ActivePage TabSheet2 then // Grid 所在页 DBGridEh1.Invalidate; // 触发重绘 end;4.5 现象OnEnter事件不触发编辑器无法弹出原因TDBGridEh的编辑器激活依赖OptionsEh中的eoUseTabKey若未启用则 Tab 键无法聚焦到单元格。解决确保初始化时设置FGrid.OptionsEh : FGrid.OptionsEh [eoUseTabKey, eoEnterAsTab]; // 同时若需鼠标单击编辑必须启用 goEditing FGrid.Options : FGrid.Options [goEditing];5. 进阶技巧用 DBGridEh 的 Band Header 实现财务多维报表5.1 Band Header 的本质不是“美化表头”而是数据语义分组器DBGridEh 的TBandHeaderEh不是视觉装饰它是将TDataSet的扁平字段结构映射为树状语义结构的中间层。例如财务报表中“资产总计”下分“流动资产”“非流动资产”每类下再分“货币资金”“应收账款”等具体科目——这无法用原生 Grid 的Title.Caption实现因为 Caption 是字符串而 Band Header 是对象。我们构建一个三层 Band 结构Level 0顶层资产、负债、所有者权益Level 1中层流动资产、非流动资产、流动负债、非流动负债Level 2底层货币资金、应收账款、固定资产、短期借款、长期借款、实收资本// 创建 Band Header procedure TForm1.BuildBandHeader; var Band0, Band1, Band2: TBandHeaderEh; Col: TColumnEh; begin // 清空原有列 FGrid.BandHeaders.Clear; FGrid.Columns.Clear; // 创建 Level 0 Band资产、负债、权益 Band0 : FGrid.BandHeaders.AddBand; Band0.Title.Caption : 资产; Band0.Width : 200; Band1 : FGrid.BandHeaders.AddBand; Band1.Title.Caption : 负债; Band1.Width : 150; Band2 : FGrid.BandHeaders.AddBand; Band2.Title.Caption : 所有者权益; Band2.Width : 150; // 为 Band0 添加 Level 1 子 Band with Band0 do begin ChildBands.AddBand.Title.Caption : 流动资产; ChildBands.AddBand.Title.Caption : 非流动资产; end; // 将字段绑定到最底层 BandLevel 2 // 注意字段顺序必须与 Band 层级严格对应 Col : FGrid.Columns.Add; Col.FieldName : Cash; Col.Title.Caption : 货币资金; Col.ParentBand : Band0.ChildBands[0]; // 绑定到“流动资产” Col : FGrid.Columns.Add; Col.FieldName : AR; Col.Title.Caption : 应收账款; Col.ParentBand : Band0.ChildBands[0]; Col : FGrid.Columns.Add; Col.FieldName : FixedAsset; Col.Title.Caption : 固定资产; Col.ParentBand : Band0.ChildBands[1]; // 绑定到“非流动资产” end;关键逻辑ParentBand属性决定列归属必须在Columns.Add后立即设置否则列会挂到根 BandChildBands是TBandHeaderEh的子 Band 列表索引从 0 开始Band 的Width是其占用的总像素宽度子 Band 宽度之和不能超过父 Band 宽度否则布局错乱。5.2 动态 Band根据数据源实时生成科目树真实财务系统中科目表是数据库表AccountTree需运行时加载。v5.2.84 支持BandHeaders.LoadFromDataSet但需满足字段约定字段名类型说明BandIDintegerBand 唯一 ID根 Band0ParentIDinteger父 Band ID根 Band 的 ParentID0CaptionstringBand 标题Levelinteger层级0顶层1子层...Widthinteger宽度像素procedure TForm1.LoadBandFromDataSet(DataSet: TDataSet); var BandMap: TDictionaryInteger, TBandHeaderEh; I: Integer; BandID, ParentID, Level: Integer; Caption: string; Width: Integer; ParentBand: TBandHeaderEh; begin BandMap : TDictionaryInteger, TBandHeaderEh.Create; try DataSet.First; while not DataSet.Eof do begin BandID : DataSet.FieldByName(BandID).AsInteger; ParentID : DataSet.FieldByName(ParentID).AsInteger; Caption : DataSet.FieldByName(Caption).AsString; Level : DataSet.FieldByName(Level).AsInteger; Width : DataSet.FieldByName(Width).AsInteger; if ParentID 0 then begin // 根 Band BandMap.Add(BandID, FGrid.BandHeaders.AddBand); BandMap[BandID].Title.Caption : Caption; BandMap[BandID].Width : Width; end else if BandMap.ContainsKey(ParentID) then begin // 子 Band ParentBand : BandMap[ParentID]; BandMap.Add(BandID, ParentBand.ChildBands.AddBand); BandMap[BandID].Title.Caption : Caption; BandMap[BandID].Width : Width; end; DataSet.Next; end; finally BandMap.Free; end; end;从那以后我每次重构财务模块都强制走一遍LoadBandFromDataSet的调试断点确认BandMap中每个 ID 都有对应对象且ParentBand.ChildBands.Count与数据库返回的子节点数一致——这能提前暴露 90% 的 Band 绑定失败问题。Band Header 是 DBGridEh 最易被低估的能力它让表格从“数据显示器”变成“业务语义载体”。希望帮到你。本文还有配套的精品资源点击获取