企业官网建设流程全解析

1. DBGridEh 点击标头排序到底卡在哪：从事件绑定到排序回调的完整链路

DBGridEh 是 Delphi/C++Builder 里做数据表格绕不开的控件，它比原生 DBGrid 多了标题行合并、多行表头、排序标记、过滤下拉这些实用能力。但很多人第一次用 DBGridEh 做点击列标头排序时，会发现一个尴尬现象：标头点下去毫无反应，或者箭头标记变了数据却没动。这不是控件坏了，而是排序这件事在 DBGridEh 里被拆成了三个独立环节，任何一个没接上，整条链路就断了。

这三个环节分别是：标头点击事件有没有绑定到正确的处理函数、排序字段和升降序方向有没有正确切换、排序回调有没有真正作用到数据集上。DBGridEh 本身不会自动帮你排序，它只负责在标题上画一个 SortMarker 小箭头，真正的数据重排必须由你写代码去操作 DataSet 的 Sort 属性或重新查询。

这篇文章面向的是正在用 Delphi 或 C++Builder 做表格开发的工程师，尤其是那些已经拖了 TDBGridEh 控件、连好了 DataSource，但点击标头没反应的场景。我会把三个环节拆开讲清楚，给出可以直接复制的排序函数代码、事件绑定配置，以及点击不同列标头验证方向切换是否生效的方法。实测下来，只要这三步对齐，点击标头升降序排列数据就是水到渠成的事。

先说清楚一个前提：DBGridEh 的排序能力依赖底层数据集。如果你用的是 TADODataSet、TClientDataSet 这类支持 Sort 属性的数据集，排序可以直接在内存里完成；如果用的是 TFDQuery 或 TADOQuery，更稳妥的做法是改 SQL 的 ORDER BY 再重新打开。本文以 TADODataSet 为主线，因为它的 Sort 属性最直接，也是 excerpt 里那段代码采用的方案。

理解这条链路的关键在于：DBGridEh 的 OnTitleBtnClick 事件只告诉你「用户点了哪一列」，它不负责排序。排序逻辑必须你自己写，写完之后还要把 SortMarker 状态更新，让用户看到当前是升序还是降序。很多人漏掉的就是最后这一步，导致箭头和数据对不上。

2. TaoToken 前置准备：给排序调试配一个稳定的模型对话入口

在动手写排序函数之前，我想先聊一个容易被忽略的调试效率问题。写 DBGridEh 排序代码时，你经常会遇到一些边界情况：Lookup 字段的 KeyFields 怎么取、Blob 字段为什么不能排序、SortMarker 三个状态怎么切换。这些问题如果每次都去翻文档或者搜零散帖子，效率很低。我自己的做法是配一个稳定的模型对话入口，把报错信息和代码片段直接贴进去问，让它帮我定位。

TaoToken 就是这样一个入口，它提供统一的 API 来调用多种大模型，适合在写代码过程中随时提问。你可以先到官网 https://taotoken.net/?utm_source=taotoken_aicg_blog_end&utm_medium=csdn&utm_campaign=rewrite&utm_content= 了解一下它的定位，然后进入控制台创建 API Key。控制台地址是 https://taotoken.net/console?utm_source=taotoken_aicg_blog_end&utm_content=console&utm_campaign=rewrite ，在这里生成你的密钥。

拿到 Key 之后，如果你只是想快速问一些 Delphi 语法或排序逻辑的问题，可以直接用模型对话页面 https://taotoken.net/models?utm_source=taotoken_aicg_blog_end&utm_content=models&utm_campaign=rewrite ，不需要写代码就能对话。如果你打算长期在编码过程中用，比如让模型帮你审查排序函数的边界处理，那 Coding Plan 更合适，地址是 https://taotoken.net/coding-plan?utm_source=taotoken_aicg_blog_end&utm_content=coding-plan&utm_campaign=rewrite 。

需要说明的是，TaoToken 在这里的角色是辅助你调试和查资料，不是替代 Delphi IDE。排序函数最终还是要写进你的工程里编译运行。API 的基础地址是 https://taotoken.net/api ，接入文档在 https://taotoken.net/doc?utm_source=taotoken_aicg_blog_end&utm_content=doc&utm_campaign=rewrite ，API Keys 管理页在 https://taotoken.net/api-keys?utm_source=taotoken_aicg_blog_end&utm_content=api-keys&utm_campaign=rewrite 。如果你用的是 Claude Code 这类命令行工具，可以参考 https://taotoken.net/claudecode-anthropic?utm_source=taotoken_aicg_blog_end&utm_content=ClaudeCodeAnthropic&utm_campaign=rewrite 的接入方式。

配好这个入口后，你在写排序函数时遇到「SortMarker 状态不对」「Lookup 字段取不到 KeyFields」这类问题，可以立刻贴代码问，比翻文档快很多。下面进入正题，先讲事件绑定。

3. 可复制配置：事件绑定、排序函数与 SortMarker 状态切换

这一节是全文的核心，我会给出完整的可复制代码。先讲事件绑定，再给排序函数，最后说 SortMarker 状态怎么和排序方向对齐。

3.1 标头点击事件绑定：OnTitleBtnClick 与 Options 配置

DBGridEh 的标头点击事件是OnTitleBtnClick，签名里带一个ACol参数告诉你点击的是第几列，还有一个Column: TColumnEh参数直接给你列对象。绑定方式有两种：设计期在 Object Inspector 里双击事件生成骨架，或者运行期代码赋值。推荐设计期绑定，直观且不容易漏。

但光绑事件还不够，DBGridEh 有一个关键属性必须打开，否则点击标头根本不会触发排序回调。这个属性在Options里，叫dgTitles（标题显示）和dgHeader相关，更关键的是ehsAutoSortMarking这个选项。在 DBGridEh 的OptionsEh集合里，dgTitles要包含，同时dgIndicator可以关掉。真正控制点击标头自动切换排序标记的是OptionsEh中的ehsAutoSortMarking，把它设为 True，DBGridEh 才会在点击时自动翻转 SortMarker。

配置片段如下，你可以在窗体创建时用代码设置，也可以在设计期勾选：

// 窗体 OnCreate 中配置 DBGridEh 排序相关选项 procedure TForm1.FormCreate(Sender: TObject); begin // 确保标题行显示 DBGridEh1.Options := DBGridEh1.Options + [dgTitles]; // 开启点击标头自动切换排序标记 DBGridEh1.OptionsEh := DBGridEh1.OptionsEh + [ehsAutoSortMarking]; // 允许点击标题触发 OnTitleBtnClick DBGridEh1.TitleParams.SortMarkerStyle := smDefaultEh; end;

如果你用的是 C++Builder，等价写法是：

DBGridEh1->Options = DBGridEh1->Options << dgTitles; DBGridEh1->OptionsEh = DBGridEh1->OptionsEh << ehsAutoSortMarking;

这里有个坑要提醒：ehsAutoSortMarking打开后，DBGridEh 会自动翻转 SortMarker，但不会自动排序数据。也就是说箭头会变，数据不动。这正是很多人以为「排序失效」的原因。排序逻辑必须写在OnTitleBtnClick里。

3.2 排序函数完整实现：字段提取、方向切换与 DataSet.Sort

下面这段代码是排序函数的核心，我基于 excerpt 的思路做了整理和注释，你可以直接复制到单元里。它处理了三种情况：普通字段直接排序、Lookup 字段取 KeyFields 排序、Blob 字段跳过。

procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh); var FieldName: string; SortStr: string; DataSet: TDataSet; Grid: TDBGridEh; begin Grid := Sender as TDBGridEh; if (Grid.DataSource = nil) or (Grid.DataSource.DataSet = nil) then Exit; DataSet := Grid.DataSource.DataSet; if not DataSet.Active then Exit; // 取列对应的字段名 FieldName := Column.FieldName; if FieldName = '' then Exit; // Blob 字段不支持排序，直接跳过 if DataSet.FindField(FieldName) = nil then Exit; if DataSet.FieldByName(FieldName).IsBlob then Exit; // Lookup 字段用 KeyFields 排序 if DataSet.FieldByName(FieldName).FieldKind = fkLookup then FieldName := DataSet.FieldByName(FieldName).KeyFields; // 字段名里带分号说明是复合字段，简单场景先跳过 if (FieldName = '') or (Pos(';', FieldName) > 0) then Exit; Screen.Cursor := crSQLWait; try // 根据当前 SortMarker 决定排序方向 case Column.Title.SortMarker of smNoneEh: begin // 第一次点击，默认降序 SortStr := FieldName + ' DESC'; Column.Title.SortMarker := smDownEh; end; smDownEh: begin // 当前降序，切换为升序 SortStr := FieldName + ' ASC'; Column.Title.SortMarker := smUpEh; end; smUpEh: begin // 当前升序，切换为降序 SortStr := FieldName + ' DESC'; Column.Title.SortMarker := smDownEh; end; else SortStr := FieldName + ' ASC'; Column.Title.SortMarker := smUpEh; end; // 关键：把排序作用到数据集 if DataSet is TCustomADODataSet then TCustomADODataSet(DataSet).Sort := SortStr else if DataSet is TClientDataSet then TClientDataSet(DataSet).Sort := SortStr; finally Screen.Cursor := crDefault; end; end;

这段代码和 excerpt 的差异在于：我把 SortMarker 的赋值和排序方向绑定在一起，避免箭头和数据不一致；同时把smNoneEh的首次点击设为降序，符合大多数表格「先看最大值」的习惯。你可以按业务需要调整首次方向。

3.3 SortMarker 三态与排序方向的对应关系

SortMarker 有三个状态：smNoneEh（无标记）、smUpEh（升序箭头）、smDownEh（降序箭头）。很多人的困惑是：DBGridEh 在ehsAutoSortMarking打开时会自动翻转，我又在代码里手动赋值，会不会冲突？

实测下来，如果你在OnTitleBtnClick里手动设置了Column.Title.SortMarker，就以你的设置为准。自动翻转只在你不干预时生效。所以稳妥做法是：要么完全靠自动翻转、你只读状态决定排序方向；要么完全手动控制、关掉自动翻转。我推荐后者，逻辑更清晰。

对应关系建议这样设计：smNoneEh首次点击 → 降序 + 设为smDownEh；smDownEh再点 → 升序 + 设为smUpEh；smUpEh再点 → 降序 + 设为smDownEh。这样用户每次点击都能看到箭头翻转，且数据方向与箭头一致。

如果你用的是 TOML 或 JSON 来管理配置（比如某些低代码平台），排序配置可以写成这样：

{ "grid": "DBGridEh1", "sort": { "event": "OnTitleBtnClick", "autoSortMarking": true, "defaultDirection": "DESC", "sortableFieldKinds": ["fkData", "fkLookup"], "skipFieldKinds": ["fkBlob"] } }

这个 JSON 只是示意配置结构，实际 Delphi 工程里还是用上面的 Pascal 代码。

4. 验证请求与成功结果：点击不同列标头确认方向切换

代码写完后，怎么确认排序真的生效了？我一般分三步验证。

第一步，准备测试数据。用一个 TADODataSet 连到一张有明确数值列的表格，比如订单表，包含 OrderID、CustomerName、Amount、OrderDate 四个字段。确保数据量在几十条以上，这样排序效果肉眼可见。

第二步，运行程序，点击 Amount 列标头。预期结果是：第一次点击，Amount 列出现降序箭头，数据按金额从大到小排列；再点一次，箭头变升序，数据从小到大排列；第三次点击又回到降序。如果你看到箭头变了但数据没动，说明DataSet.Sort那行没执行到，检查数据集类型判断。

第三步，点击 CustomerName 列标头。预期是字符串列也能正常排序，且之前 Amount 列的箭头应该被清除（如果你希望单列排序）。这里有个细节：DBGridEh 默认允许多列同时显示排序标记，如果你要单列排序，需要在排序函数开头清除其他列的 SortMarker：

// 单列排序：清除其他列的排序标记 for var I := 0 to Grid.Columns.Count - 1 do if Grid.Columns[I] <> Column then Grid.Columns[I].Title.SortMarker := smNoneEh;

验证时还要注意一个现象：TADODataSet 的 Sort 属性是客户端排序，它不会重新查询数据库，所以速度很快，但要求数据集已经把所有记录取到本地。如果你的数据集是分页取数，客户端排序只能排当前页，这点要提前想清楚。

成功的结果应该是：点击任意可排序列的标头，数据立即重排，箭头方向与数据顺序一致，切换列时旧列的箭头清除。整个过程无卡顿，光标在排序期间显示为等待状态。

如果你在验证时发现点击标头完全没反应，先检查OnTitleBtnClick有没有绑定，再检查OptionsEh里ehsAutoSortMarking是否打开。这两个是最常见的漏配点。

5. 本篇常见错排查：401、local proxy failed、reading choices 与 OAuth 报错对照

这一节整理我在调试 DBGridEh 排序以及使用模型辅助时遇到的真实报错，给出对照排查思路。注意，这些报错分两类：一类是 Delphi 运行期错误，一类是调用模型 API 时的错误。

先看 Delphi 侧。如果你点击标头弹出Access violation，大概率是Column为 nil 或者DataSet未激活。在排序函数开头加 nil 判断和 Active 判断就能解决。如果报Field 'xxx' not found，说明Column.FieldName和数据集字段对不上，检查列的 FieldName 属性是否拼写正确。

再看模型 API 侧。如果你在调试时用模型对话贴代码，可能遇到这些报错：

401 Unauthorized：API Key 无效或没带。检查请求头里的 Authorization 字段，格式是Bearer <你的Key>。Key 在 https://taotoken.net/api-keys?utm_source=taotoken_aicg_blog_end&utm_content=api-keys&utm_campaign=rewrite 生成，注意不要有多余空格。

local proxy failed：本地网络配置问题，通常是请求没发出去。检查你的 Base URL 是否写成 https://taotoken.net/api ，不要多加路径。

reading choices相关报错：一般是响应体解析失败，可能是模型返回格式和你的解析代码不匹配。确认你用的模型 ID 正确，Model ID 要和请求体里的 model 字段一致。

OAuth报错：如果你用的是 Claude Code 这类工具，OAuth 流程没走完。参考 https://taotoken.net/claudecode-anthropic?utm_source=taotoken_aicg_blog_end&utm_content=ClaudeCodeAnthropic&utm_campaign=rewrite 重新配置。

这里要强调三件套：无论你用哪种接入方式，Base URL、API Key、Model ID 三者必须同时正确。Base URL 是 https://taotoken.net/api ，Key 从控制台拿，Model ID 按你选的模型填。缺一个都会报错。

排查顺序建议：先确认 Key 有效（用模型对话页面测一下），再确认 Base URL 没写错，最后确认 Model ID 存在。三步都过了还报错，把完整请求和响应贴到对话里问。

6. 语义一致收尾：把排序链路固化成可复用组件

写到这里，DBGridEh 点击标头排序的三个环节已经完整了：事件绑定靠OnTitleBtnClick加ehsAutoSortMarking，排序函数处理字段提取和方向切换，SortMarker 三态与数据方向对齐。你可以把这段排序函数抽到一个公共单元里，让多个窗体复用。

我自己的做法是写一个TGridSortHelper类，把排序逻辑封装成静态方法，传入 Grid 和 Column 即可。这样每个窗体的OnTitleBtnClick只需要一行调用。长期做表格开发的话，这种复用能省很多重复代码。

如果你在封装过程中遇到 Delphi 泛型或接口的问题，可以随时用模型对话 https://taotoken.net/models?utm_source=taotoken_aicg_blog_end&utm_content=models&utm_campaign=rewrite 贴代码问。需要长期在编码中辅助的，Coding Plan https://taotoken.net/coding-plan?utm_source=taotoken_aicg_blog_end&utm_content=coding-plan&utm_campaign=rewrite 更合适。接入文档在 https://taotoken.net/doc?utm_source=taotoken_aicg_blog_end&utm_content=doc&utm_campaign=rewrite ，遇到配置问题先翻文档。

最后留一个实用技巧：排序函数里加一个Screen.Cursor := crSQLWait和finally恢复，能让用户在数据量大时感知到程序在工作，避免重复点击。这个细节虽小，但体验提升明显。