Delphi 11数据库界面增强：EhLib 10.0.031实战指南-尧图手机网站定制

简介：EhLib 10.0.031 是一款专为 Delphi 11（特别是 11.1.5 环境）深度适配的高性能第三方组件库，面向中高级 Delphi 桌面与数据库应用开发者，显著提升图形处理、多源数据库交互、专业报表生成及数据可视化开发效率。资源包共 890 个文件，主体为 299 个 Pascal 源码（.pas）与 302 个窗体定义（.dfm），辅以 70 个资源文件（.res）、55 个工程文件（.dpr/.dproj）及完整帮助文档（.chm/.cnt/.docx），源码开放便于二次开发与原理学习；压缩包仅 24.63MB，结构清晰、即装即用。目前已有 885 人下载学习，包内含全部安装脚本（install 文件夹）、示例工程、离线帮助系统及多格式图标资源，开发者可直接复用图像编辑器、跨数据库查询控件、PDF/Excel 报表导出模块及实时图表组件，快速构建企业级数据管理界面。

1. EhLib 10.0.031 For Delphi 11：不是“又一个UI组件包”，而是Delphi 11下绕不开的数据库可视化刚需补丁

你刚在某高校实验室接手一个老系统维护任务，Delphi 11编译通过了，但一运行就报EAccessViolation——点开调试器，崩溃堆栈直指TDBGrid的OnDrawColumnCell；或者更典型：客户要求把一张带合计行、冻结列、右键导出Excel、双击跳转明细页的旧报表，在不重写业务逻辑的前提下，两周内适配到新环境。这时候翻遍Embarcadero官方控件库，你会发现：TDBGrid原生不支持合计行，TStringGrid不绑定数据集，而第三方商业套件动辄数万授权费、且对Delphi 11支持滞后。EhLib 10.0.031 就是那个被某公司产线项目压测三年、在Delphi 11.0和11.1上稳定跑满24小时无内存泄漏的“黑匣子级”补丁包。它不是炫技的UI框架，而是用纯Object Pascal写的、专治Delphi数据库界面“玄学崩溃”的手术刀——核心价值在于：把TDBGrid的底层绘制、数据绑定、事件链路全盘接管，再塞进企业级报表该有的所有毛细血管功能。适合正在用Delphi 11做MIS/ERP/SCADA类系统升级的工程师，尤其当你发现VCL样式引擎在高DPI屏上把TDBGrid单元格文字切掉一半，或OnCellClick事件在Win11上偶尔失灵时，这份资源就是你的后悔药。

2. 安装与基础集成：从源码包解压到IDE组件面板的三步落地

EhLib 10.0.031 并非开箱即用的安装程序，而是一个需手动注册的源码包。其结构设计明显针对Delphi 11的编译器特性做了深度适配，比如EhLib.dpk中强制声明{$IFDEF DELPHI_11_UP}编译指令，规避了11.0早期版本对泛型单元System.Generics.Collections的路径解析Bug。下面步骤经某跨平台系统实测验证，跳过任何“点击Install”式幻觉操作。

2.1 解压与目录结构确认

下载得到的压缩包解压后，必须确保根目录包含以下关键文件夹（缺一不可）：

Source\：核心PAS源码，含EhLib.pas,EhDBGrid.pas,EhBDE.pas等
Design\：设计时包，含EhLibD.dpk（Delphi 11专用设计时包）
Bin\：预编译的DCU文件（仅作备用，强烈建议重新编译）
Help\：CHM格式帮助文档，含所有属性/事件的参数说明表

提示：若解压后出现Source11\或Source10\这类按版本分的子目录，说明你拿到的是混装包——立即丢弃。EhLib 10.0.031 的Source\目录必须是扁平结构，所有.pas文件直接位于其中，这是Delphi 11编译器查找依赖的硬性要求。

2.2 设计时包注册：`EhLibD.dpk`的编译与安装

Delphi 11的组件注册必须走“设计时包”路径，而非旧版的.bpl直接加载。打开Design\EhLibD.dpk，重点检查并修正两处：

// 在 EhLibD.dpk 的 requires 节中，必须包含： requires rtl, vcl, vclx, vclactnband, EhLib; // ← 此处必须存在，且名称严格匹配 Source\EhLib.dpk 的包名

// 在 EhLibD.dpk 的 contains 节中，必须声明： contains EhLibReg in 'EhLibReg.pas'; // ← 注册单元，负责向IDE注入组件图标

编译前，在IDE菜单栏执行：Tools → Options → Environment Options → Delphi Options → Library → Library Path，将Source\目录完整路径（如C:\EhLib10031\Source\）添加到最顶部。然后右键EhLibD.dpk→Compile→Install。成功后，组件面板会出现EhLib页签，内含TEhDBGrid,TEhGroupBox,TEhScrollBox等控件。

2.3 运行时包关联：`EhLib.dpk`的显式引用

设计时包只解决IDE可见性，运行时仍需链接核心单元。在你的主窗体单元（如MainForm.pas）的uses子句中，必须显式添加：

uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, // ↓ 新增以下两行，顺序不能错 ↓ EhLib, // 核心运行时单元 EhDBGrid; // DBGrid增强单元（若用到TEhDBGrid）

注意：EhLib必须放在Vcl.*单元之后、其他自定义单元之前。这是Delphi 11 RTL/VCL初始化顺序的硬约束，否则会导致EInvalidOperation异常。

2.4 验证安装：拖拽`TEhDBGrid`并绑定数据集

新建空白窗体，从组件面板拖一个TEhDBGrid到窗体上。在Object Inspector中设置：

DataSource→ 指向已存在的TDataSource
Align→alClient
Options.EgRowDetail→True（启用行详情）

运行程序。若网格正常显示数据，且右键弹出菜单含 “Export to Excel” 选项，则安装成功。此时可尝试双击任意单元格——原生TDBGrid会触发OnCellClick，而TEhDBGrid会额外触发OnCellDblClickEx事件，这是其扩展能力的首个信号。

3. 核心功能实战：用`TEhDBGrid`实现企业级报表四要素

TEhDBGrid的价值不在“看起来更漂亮”，而在用极小代码量实现传统方案需数百行手工绘制的报表逻辑。以下四个场景均来自某SCADA系统真实需求，代码可直接复用。

3.1 冻结列 + 合计行：解决宽表横向滚动时关键字段丢失问题

某设备监控表有28列，其中前3列（设备ID、名称、状态）必须永远可见。原生TDBGrid无冻结列，强行用ScrollBy模拟会导致焦点错乱。TEhDBGrid通过FrozenCols属性+FooterRowCount实现原子化控制：

// 在窗体 OnCreate 事件中 procedure TForm1.FormCreate(Sender: TObject); begin EhDBGrid1.FrozenCols := 3; // 冻结前3列 EhDBGrid1.FooterRowCount := 1; // 底部预留1行用于合计 EhDBGrid1.Options.EgFooter := True; // 启用页脚区 end;

// 在数据集打开后（如 DataSource1.DataSet.AfterOpen） procedure TForm1.DataSource1DataSetAfterOpen(DataSet: TDataSet); var i: Integer; SumValue: Double; begin SumValue := 0; DataSet.First; while not DataSet.Eof do begin SumValue := SumValue + DataSet.FieldByName('CurrentValue').AsFloat; DataSet.Next; end; // 向页脚行写入合计值（列索引从0开始） EhDBGrid1.SetFooterText(4, FormatFloat('#,##0.00', SumValue)); // 第5列（索引4）显示合计 EhDBGrid1.SetFooterText(5, 'TOTAL'); // 第6列显示文字标签 end;

参数说明：SetFooterText(ColIndex, Text)的ColIndex是网格列序号，非数据集字段序号。若网格列被隐藏或重排，需用EhDBGrid1.Columns[ColIndex].FieldName反查对应字段。

3.2 高DPI自适应：修复Win10/11下字体切割与行高错位

Delphi 11默认启用高DPI感知，但TDBGrid的DefaultRowHeight计算失效。TEhDBGrid通过Scaled属性和OnGetCellParams事件提供像素级控制：

// 在窗体 OnCreate 中启用缩放 EhDBGrid1.Scaled := True; // 实现 OnGetCellParams 事件 procedure TForm1.EhDBGrid1GetCellParams(Sender: TObject; Column: TEhColumn; AFont: TFont; var Background: TColor; State: TGridDrawState; var Highlighted: Boolean; var DrawText: Boolean); begin // 强制统一行高为24像素（适配125% DPI） if Column.Index = 0 then // 仅对首列生效，避免性能损耗 EhDBGrid1.DefaultRowHeight := Round(24 * Self.ScaleFactor); end;

关键逻辑：Self.ScaleFactor返回当前DPI缩放比例（1.0=100%, 1.25=125%），Round()确保像素值为整数。此方案比全局Screen.PixelsPerInch更精准，因后者在多显示器混合DPI下可能返回错误值。

3.3 右键导出Excel：零依赖生成兼容Office 2010+的XLSX

TEhDBGrid内置导出引擎，无需ExcelApplication或第三方COM组件。导出时自动处理合并单元格、数字格式、中文编码：

// 在右键菜单 OnClick 事件中 procedure TForm1.ExportToExcel1Click(Sender: TObject); begin if not EhDBGrid1.ExportToExcel('Report_' + DateToStr(Date()) + '.xlsx', [eoSelectionOnly, eoIncludeHeaders, eoUseFieldTitle]) then begin ShowMessage('导出失败：请检查磁盘空间或文件是否被占用'); Exit; end; ShowMessage('导出成功！文件已保存至' + ExtractFilePath(ParamStr(0))); end;

参数说明：eoSelectionOnly导出选中区域（若未选中则导出全部），eoIncludeHeaders包含列标题，eoUseFieldTitle使用字段DisplayLabel而非FieldName。生成的XLSX文件用7-Zip打开可验证其符合OOXML标准，无宏、无COM依赖。

3.4 行详情（Row Detail）：双击展开关联子表，不新建窗体

某订单系统要求双击订单行，下方动态展开该订单的所有明细项。TEhDBGrid的RowDetail功能通过OnGetDetailPanel事件注入子网格，避免窗体切换开销：

// 在窗体 OnCreate 中启用 EhDBGrid1.Options.EgRowDetail := True; EhDBGrid1.RowDetailHeight := 120; // 实现 OnGetDetailPanel 事件 procedure TForm1.EhDBGrid1GetDetailPanel(Sender: TObject; ARow: Integer; var Panel: TWinControl); var DetailGrid: TEhDBGrid; DetailDS: TDataSource; begin // 创建子网格（仅首次调用创建，后续复用） if not Assigned(EhDBGrid1.RowDetailPanel) then begin DetailGrid := TEhDBGrid.Create(Self); DetailGrid.Parent := EhDBGrid1; DetailGrid.Align := alClient; DetailGrid.Options := [egEditing, egAlwaysShowEditor, egRowDetail]; // 绑定子数据集（此处用TClientDataSet模拟） DetailDS := TDataSource.Create(Self); DetailDS.DataSet := CreateOrderDetailDataSet(EhDBGrid1.DataSource.DataSet.FieldByName('OrderID').AsInteger); DetailGrid.DataSource := DetailDS; Panel := DetailGrid; end else Panel := EhDBGrid1.RowDetailPanel; end;

关键点：CreateOrderDetailDataSet(OrderID: Integer)是你自定义的函数，返回已填充数据的TDataSet子集。TEhDBGrid会自动管理子网格的生命周期，关闭主网格时子网格自动销毁。

4. 避坑指南：Delphi 11下五个血泪经验换来的高频故障排查

EhLib 10.0.031 在Delphi 11上并非“完美适配”，以下问题均在某产线系统上线前被踩中，每一条都附带可复现的最小场景和根治方案。

4.1 现象：启动时报`External Exception EEFFACE`，堆栈指向`EhLib.pas`第1247行

原因：Delphi 11.1更新后，System.UITypes.TDragMode枚举值发生偏移，而EhLib.pas中硬编码了旧值dmAutomatic = 0。当控件尝试设置DragMode := dmAutomatic时，实际写入非法内存地址。
解决：打开Source\EhLib.pas，搜索dmAutomatic，将其替换为TDragMode(0)。同理处理dmManual（改为TDragMode(1)）。注意：此修改必须在EhLib.dpk和EhLibD.dpk中同步进行，否则设计时与运行时不一致。

4.2 现象：`TEhDBGrid`右键菜单中“Export to Excel”灰色不可用

原因：TEhDBGrid导出功能依赖System.Zip单元，而Delphi 11默认未在项目选项中启用ZIP支持。即使代码中uses System.Zip，链接器仍会忽略。
解决：在项目选项Options → Delphi Compiler → Linking中，勾选Use runtime packages，并在Runtime Packages输入框中追加zip（注意无空格、无扩展名）。重新编译项目。

4.3 现象：`TEhGroupButton`在Win11深色模式下背景全黑，文字不可见

原因：TEhGroupButton的ParentBackground属性在VCL样式引擎下失效，其内部绘制逻辑未适配TStyleManager.ActiveStyle.Name = 'Windows11'。
解决：在按钮OnPaint事件中强制重绘背景：

procedure TForm1.EhGroupButton1Paint(Sender: TObject); begin if TStyleManager.ActiveStyle.Name = 'Windows11' then EhGroupButton1.Canvas.Brush.Color := clBtnFace; end;

4.4 现象：`TEhScrollBox`内嵌`TEhDBGrid`时，滚动条拖动卡顿，CPU占用率飙升至30%

原因：TEhScrollBox的AutoScroll与TEhDBGrid的DoubleBuffered冲突，导致每帧重绘触发WM_PAINT循环。
解决：禁用TEhScrollBox的AutoScroll，改用TEhDBGrid自身滚动：

EhScrollBox1.AutoScroll := False; EhDBGrid1.Parent := EhScrollBox1; // 直接设为父容器 EhDBGrid1.Align := alNone; EhDBGrid1.Left := 0; EhDBGrid1.Top := 0; EhDBGrid1.Width := EhScrollBox1.ClientWidth; EhDBGrid1.Height := EhScrollBox1.ClientHeight;

4.5 现象：`TEhDBGrid`绑定`TFDQuery`时，`OnCellClick`事件在编辑状态下不触发

原因：FireDAC的TFDQuery默认启用ResourceOptions.SilentMode := True，抑制了部分VCL事件通知链。
解决：在TFDQuery.Open前设置：

FDQuery1.ResourceOptions.SilentMode := False; FDQuery1.ResourceOptions.Constraints := False; // 避免约束检查干扰

5. 进阶技巧：用`EhLib`的`OnGetCellParams`实现动态条件格式

企业报表常需根据数值范围改变单元格背景色（如：负数红底白字、超限值黄底黑字）。TEhDBGrid的OnGetCellParams事件是唯一能实时干预每个单元格渲染的钩子，但官方文档未说明如何安全获取当前行数据——因为事件触发时DataSource.DataSet可能处于dsEdit或dsInsert状态，直接读取字段会引发异常。

5.1 安全获取当前行数据的三重校验法

procedure TForm1.EhDBGrid1GetCellParams(Sender: TObject; Column: TEhColumn; AFont: TFont; var Background: TColor; State: TGridDrawState; var Highlighted: Boolean; var DrawText: Boolean); var DataSet: TDataSet; Field: TField; Value: Variant; begin DataSet := EhDBGrid1.DataSource.DataSet; // 三重校验确保数据可读 if not Assigned(DataSet) or not DataSet.Active or (DataSet.State in [dsInactive, dsInvalid]) then Exit; // 获取当前行对应字段值（Column.FieldName 是可靠映射） Field := DataSet.FieldByName(Column.FieldName); if not Assigned(Field) then Exit; try Value := Field.Value; // 此处可能触发计算字段，故用try保护 except Exit; // 字段计算异常，跳过格式化 end; // 动态条件格式逻辑 if VarIsNumeric(Value) then begin if Value < 0 then begin Background := clRed; AFont.Color := clWhite; end else if Value > 1000 then begin Background := clYellow; AFont.Color := clBlack; end; end; end;

5.2 性能优化：避免重复计算的缓存策略

若条件格式依赖复杂计算（如：Value > GetThresholdFromConfig(Field.FieldName)），每次OnGetCellParams调用都查配置表会导致严重卡顿。解决方案是预计算并缓存：

// 在窗体私有区声明 type TForm1 = class(TForm) private FThresholdCache: TDictionary<string, Double>; procedure BuildThresholdCache; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end; // 在构造函数中构建缓存 constructor TForm1.Create(AOwner: TComponent); begin inherited; FThresholdCache := TDictionary<string, Double>.Create; BuildThresholdCache; end; destructor TForm1.Destroy; begin FThresholdCache.Free; inherited; end; procedure TForm1.BuildThresholdCache; var ConfigDS: TDataSet; begin ConfigDS := CreateConfigDataSet; // 返回含 FieldName, Threshold 的数据集 ConfigDS.First; while not ConfigDS.Eof do begin FThresholdCache.AddOrSetValue( ConfigDS.FieldByName('FieldName').AsString, ConfigDS.FieldByName('Threshold').AsFloat ); ConfigDS.Next; end; end; // 在 OnGetCellParams 中使用缓存 procedure TForm1.EhDBGrid1GetCellParams(...); var Threshold: Double; begin // ... 前置校验代码省略 if FThresholdCache.TryGetValue(Column.FieldName, Threshold) then begin if VarIsNumeric(Value) and (Value > Threshold) then begin Background := clLime; AFont.Style := [fsBold]; end; end; end;

5.3 扩展应用：用`OnGetCellParams`实现“编辑态高亮”视觉反馈

用户常困惑于“当前在哪一列编辑”，TEhDBGrid未提供原生编辑列高亮。我们利用OnGetCellParams结合Focused状态实现：

procedure TForm1.EhDBGrid1GetCellParams(...); begin // ... 其他格式化逻辑 if (gdFocused in State) and (gdFixed in State) then begin // 当前列是固定列（如序号列）且获得焦点时，用蓝色边框强调 EhDBGrid1.Canvas.Pen.Color := clBlue; EhDBGrid1.Canvas.Pen.Width := 2; EhDBGrid1.Canvas.Rectangle( Rect( Column.Left - 1, EhDBGrid1.Top + EhDBGrid1.HeaderHeight - 1, Column.Left + Column.Width + 1, EhDBGrid1.Height - 1 ) ); end; end;