企业官网建设流程全解析

上一课聊 TComboBox 的时候，就有朋友问：如果我要的不是“从一堆选项里下拉选一个”，而是“从一个列表里勾选好几个”，然后拿这几个值去联动别的控件，应该用什么？

答案就是 TListBox。先把拼写纠正一下：组件类名是 TComboBox，不是 TCombobox，当年的中文技术文档里十有八九把第二个 B 打成小写，看得人强迫症都犯了。TListBox 也一样，属于 Delphi / C++ Builder 中最基础也最容易被低估的列表控件。很多人只把它当成“展示文本的列表框”，甚至觉得它就是比 TComboBox 更简陋的替代品。但在真实的业务场景里，把 TListBox 的 MultiSelect 打开之后，它完全可以当一组“多选复选框”来用，配合数据同步逻辑，能做出非常灵活的筛选面板。

这篇文章就用一个“数据同步演示”为主线，把 TListBox 从属性设置、多选状态读取、控件间双向联动，到多选结果转 SQL 查询条件，再到和数据集同步的完整链路，从头到尾过一遍。适合刚接触 VCL 控件、想做自定义筛选器或者报表查询面板的开发者，也适合那些已经用了很久 TListBox、但从没认真处理过多选状态同步问题的人。

1. 为什么说 TListBox 是“能多选的 TComboBox”

1.1 单选下拉与多选列表的本质差别

TComboBox 本质上是一个“输入框 + 下拉列表”的组合控件，它的核心优势是节省界面空间。一个窗体上放十个 TComboBox 没问题，但如果放十个平铺的 TListBox，整个界面就没法看了。所以 TComboBox 适合的场景是：选项很多、窗体空间有限、用户一次只需要选一个值。比如发票类型、客户等级、支付方式，这类字段用 TComboBox 是最自然的。

但真实业务里还有一种很常见的需求：用户需要从一组固定选项里挑多个值，作为后续查询或筛选的条件。比方说“统计华东、华北、华南三个大区的销售额”，或者“导出状态为已审核、已完成的订单”。这种需求你用 TComboBox 会很别扭，总不能让用户一次次点选再拼接。这个时候 TListBox 就能派上用场——它是平铺的，所有选项都展示在眼前，MultiSelect 属性设为 True 之后，用户可以通过鼠标或键盘选中多项，界面上的反馈比下拉框直观得多。

如果打个比方，TComboBox 像在售票窗口买票，一次只能报一个目的地；而多选状态的 TListBox 像自助餐取餐，盘子可以夹好几种菜，拿多拿少你自己决定。这两种交互形态没有绝对的好坏，完全取决于业务上到底需要单选还是多选。

1.2 “数据同步演示”到底在演示什么

标题里说“以便进行数据的同步演示”，很多人一听到“数据同步”四个字，马上联想到数据库主从复制、消息中间件之类的东西。其实在控件教学这个语境下，数据同步指的是界面层的数据状态一致性：TListBox 的选中项变化之后，TComboBox 或其他控件里的数据要跟着变化，反过来也一样。

我见过不少初级开发者把这种联动写在按钮的 Click 事件里：用户先点选 TListBox，再点一下“同步”按钮，最后才更新 TComboBox。这个方案能跑，但谈不上“同步”，只能叫“手动刷新”。真正的同步应该是自动的：只要 TListBox 选择了新增项或取消了某项，TComboBox 立刻重新生成对应数据，不需要用户额外操作。这才是实际项目里筛选联动面板的基础写法。

这篇文章里的演示会做一个双向同步：左边 TListBox 显示全部候选城市，用户多选；右边 TComboBox 实时显示 TListBox 中已选中的城市列表；当 TComboBox 想回显某个值时，TListBox 对应的项也会被标记为选中。看起来简单，但把这套逻辑写顺了，以后做更复杂的“主表控件 + 从表数据集”联动，思路是完全一致的。

1.3 三种列表类控件的选型判断

在开始写代码之前，有必要先把 TComboBox、TListBox、TCheckListBox 这三者的适用场景说清楚，因为很多新手会在这个环节纠结。

TCheckListBox 是 VCL 组件面板 Additional 页里的标准控件，它看起来更像一组 checkbox，用户对这个 UI 的理解成本最低。如果需求方明确说“我要复选框列表”，那直接拖 TCheckListBox 最省事。但为什么很多课程和项目还是用 TListBox 做多选？一是 TListBox 的 Items、Selected、SelCount 这套 API 更通用，理解 TListBox 的多选逻辑以后，TCheckListBox 的 Checked 数组你也会用；二是 TListBox 可以通过 Style 属性做出自定义绘制效果，视觉上更可控；三是老系统里到处是 TListBox，改造成本低。

所以这篇文章选择 TListBox 做数据同步演示，并不是因为它比 TCheckListBox 更先进，而是因为它的多选状态管理更“原始”，更能让你理解列表框在 Windows 消息层面的工作方式。把 TListBox 吃透了，TCheckListBox 就是个“加了复选样式”的变种而已。

2. 搭建多选界面：属性组合与布局细节

2.1 MultiSelect 和 ExtendedSelect：一对必须搭配的属性

TListBox 能多选，靠的不是某个高深方法，而是几个属性组合。

• MultiSelect：设为 True 之后，ListBox 才允许同时选中多项。
• ExtendedSelect：设为 True 之后，用户可以用 Shift 点击实现连续多选，用 Ctrl 点击实现单个项的选中或取消选中。

按我这么多年写 VCL 的经验，这两个属性我几乎永远是同时打开。有人会问：只把 MultiSelect 设为 True，不是已经可以多选了吗？理论上可以，但实际用起来非常别扭。Windows 原生列表框在只设置 LBS_MULTIPLESEL 的时候，对鼠标点击的处理逻辑和带扩展选择的模式差别很大，用户很难用直觉完成“先选三个不连续的项，再取消中间那个”这类操作。ExtendedSelect 提供的 Shift/Ctrl 组合键机制，才是桌面用户对“多选列表框”的默认认知。

具体做法是在 Object Inspector 里把 ListBox1.MultiSelect 设为 True，ListBox1.ExtendedSelect 设为 True。这两个属性都在 Properties 页签下，位置挨得很近，但很容易被人忽略的是：如果没有先开 MultiSelect，就算 ExtendedSelect 设为 True 也不生效，因为扩展选择的底层逻辑是建立在“已经支持多项选中”的基础上。

2.2 那些会影响多选体验的附属属性

多选的开关打开之后，还有几个属性会明显影响使用体验，我建议在动手写代码前先统一设置好。

第一是 Sorted。TListBox 的 Items 如果设置为排序状态，添加新数据时会自动按字母顺序插到对应位置。这看起来很方便，但对“数据同步”来说是个隐患：一旦排序，Items 的索引就和你的原始数据顺序脱钩了。比如你按照数据库 ID 顺序填了 10 条记录，打开 Sorted 之后索引全部错乱，再用索引同步业务数据就会出问题。数据同步演示里我建议先保持 Sorted = False，用的时候再按实际情况决定。

第二是 Columns。当一个列表框的选项超过七八个时，平铺一列会让控件变得又高又傻。设置 Columns 为 2 或 3，TListBox 就把选项分成多列显示，窗口高度能省下一大截。多选状态下多列显示同样生效，选中的项会用高亮条标出来。不过要注意，Columns 只是显示布局，不影响 Items 的索引顺序。

第三是 Style。默认 lbStandard 就够了。如果要显示不同的字体颜色、图标，或者要响应鼠标悬停换外观，就要改成 lbOwnerDrawFixed 或 lbOwnerDrawVariable 配合自定义绘制事件。数据同步演示里我们用默认样式，不做花哨处理，先把逻辑走通。

第四是 IntegralHeight。这个属性很多人不知道：设为 True 时，ListBox 的高度会自动调整到能完整显示整数行，不会出现底部只露半个选项的尴尬。多选界面因为本身高度就大，我一般会打开它，让界面更整洁。

2.3 本课演示窗体的搭建步骤

既然要演示“数据同步”，我们就从创建一个干净的演示窗体开始。这一步不需要任何代码，纯控件布局，大概五分钟搞定。

在窗体上放三个控件，从上到下排列：

• ListBox1：多选候选列表，MultiSelect=True，ExtendedSelect=True，Sorted=False。
• ComboBox1：同步展示列表，Style 设为 csDropDownList，防止用户手动输入乱七八糟的内容。
• Label1：用于实时显示“已选 N 项”。

再放一个 Button1，标题写“应用筛选”，后面用来演示把多选结果变成 SQL 查询条件。它在数据同步演示的初级阶段不参与逻辑，但如果你照着文章做，后面到第 5 节就用得上了。

给 ListBox1 填充测试数据的方法可以直接在 Object Inspector 里点 Items 属性旁边的省略号，打开字符串编辑器逐行输入。比如：

华东大区
华北大区
华南大区
西南大区
西北大区
东北大区

这种静态数据适合先跑通界面。等到了第 3 节，我们再改成运行期动态填充，因为真实的业务数据不可能在设计期写死。

然后我们约定一个行为：Label1 实时刷新，显示当前选中数量。选中数量用 TListBox 的 SelCount 属性拿，这是多选模式下专门统计选中项个数的属性，比手动遍历计数高效得多。

3. 双向数据同步的核心逻辑

3.1 数据从哪来：TStrings 的几种填充方式

设计期敲进去的数据只够做界面预览，真实项目里肯定要从数据库、配置文件或者接口返回里加载。TListBox.Items 的类型是 TStrings，它提供了不少填充方法，但很多初学者只会用 Add。

最基础的写法是：

ListBox1.Items.Clear; ListBox1.Items.Add('华东大区'); ListBox1.Items.Add('华北大区');

循环从数据集里填也可以：

while not ADQuery1.Eof do begin ListBox1.Items.Add(ADQuery1.FieldByName('RegionName').AsString); ADQuery1.Next; end;

这里我要特别推荐一个用法：AddObject。它可以在添加字符串的同时，给每个选项绑定一个额外对象。我们通常把这个对象当成业务主键 ID 来用。比如你界面上显示的是“华东大区”，背后绑定的 ID 是 101。这样数据同步时，不管是传到 TComboBox 还是拿去拼 SQL，你拿到的都是稳定的业务 ID，而不是依赖显示文本或索引。

var i: Integer; begin ListBox1.Items.BeginUpdate; try ListBox1.Items.Clear; for i := 0 to 9 do ListBox1.Items.AddObject('大区' + IntToStr(i), TObject(i + 1)); finally ListBox1.Items.EndUpdate; end; end;

读出来的时候用 TObject 转回 Integer：

var RegionID: Integer; begin RegionID := Integer(ListBox1.Items.Objects[Index]); end;

这样设计的好处是：显示文本可以随便改，业务逻辑永远跟着 ID 走。数据同步最怕的就是拿“索引”当身份标识，因为索引会在增删操作后全部失效。

3.2 不要依赖 ItemIndex：用 Selected 数组 + SelCount 读取选中项

这是 TListBox 多选模式里最容易踩的坑，我在第 4 节会专门展开。这里先给结论：单选模式下，ItemIndex 可以告诉你当前选中的是哪一项，但多选模式下，ItemIndex 返回的只是“当前焦点项”或“最后点击项”的索引，它不代表全部选中集合。

正确读取所有选中项的方式是遍历 Selected 数组：

var i: Integer; begin for i := 0 to ListBox1.Items.Count - 1 do begin if ListBox1.Selected[i] then Memo1.Lines.Add(ListBox1.Items[i]); end; end;

配合 SelCount 可以先判断是否有选中项，避免做无意义的遍历：

if ListBox1.SelCount = 0 then Exit;

SelCount 是一个只读属性，它反映当前选中项的数量。在多选模式内部，ListBox 维护着一个选择状态集合，Selected[i] 就是查询某个索引是否在这个集合内。

3.3 正向同步：TListBox 到 TComboBox 的实时刷新

现在写正向同步函数：把 TListBox 中全部选中项同步到 TComboBox，同时刷新 Label1 的计数。

先把同步逻辑抽成一个独立方法，这样不管谁来调用，逻辑只有一份：

procedure TForm1.SyncSelectedToList; var i: Integer; begin ComboBox1.Items.BeginUpdate; try ComboBox1.Items.Clear; for i := 0 to ListBox1.Items.Count - 1 do begin if ListBox1.Selected[i] then ComboBox1.Items.Add(ListBox1.Items[i]); end; finally ComboBox1.Items.EndUpdate; end; Label1.Caption := Format('已选 %d 项', [ListBox1.SelCount]); end;

然后 TListBox 的 OnClick 事件里调用这个方法即可：

procedure TForm1.ListBox1Click(Sender: TObject); begin SyncSelectedToList; end;

OnClick 是 TListBox 多选模式下最直接的事件入口。鼠标点击、键盘空格切换选中状态，都会触发它。但这里留了一个尾巴：如果用户用键盘方向键来回移动，OnClick 的触发时机不一定能覆盖每一种选中状态变化。这块我在第 4 节会用消息级事件解决，这里先保持简单。

同步后的效果：每次用户在 TListBox 里点击某个大区，TComboBox 的下拉列表内容都会立刻变成“当前选中的大区集合”。注意 TComboBox 的 Style 是 csDropDownList，它只负责展示，不允许用户手动编辑文本，避免把同步后的数据搞脏。

3.4 反向同步：从 TComboBox 回写 TListBox 选中状态

数据同步演示只做单向没有说服力。我们再加一个反向逻辑：用户在 TComboBox 里手动选择某一项时，TListBox 里对应的选项要自动高亮。

反向同步的关键是：从 TComboBox 的当前文本（或选中索引）找到 TListBox 里的对应项索引。最简单的做法是用 IndexOf 按显示文本匹配：

procedure TForm1.ComboBox1Change(Sender: TObject); var idx: Integer; begin idx := ListBox1.Items.IndexOf(ComboBox1.Text); if idx >= 0 then begin ListBox1.Selected[idx] := True; ListBox1.TopIndex := idx; end; end;

这里的 TopIndex 是一个容易被忽略的属性，它控制列表框滚动条滚动到哪一行。如果选中的项在很靠后的位置，不设置 TopIndex，用户根本看不到同步后的高亮效果。

反向同步同样可以做得更严谨：当 TComboBox 的下拉列表同步了多个城市之后，用户选中其中某一个，我们只把 TListBox 中对应项选中，而其他项保持原来的状态。这个“只动对应项、不动其他项”的思路，在真实项目里非常重要，它保证了两个控件之间不会出现“同步一次就把其他选中项清空”的副作用。

到这里，双向同步的核心代码已经成型。如果你想更近一步，可以在 SyncSelectedToList 里加一个判断：只有选中项集合发生变化时才刷新 TComboBox。记录上次的选中集合，比较有变化再执行 Clear 和 Add，避免无效刷新导致界面闪烁。

4. 多选同步开发中的三个坑：我从 Debugger 里总结的经验

4.1 坑一：ItemIndex 在多选模式下是“假选中”

我在第 3 节已经提过，但这里必须展开讲，因为这个坑我亲眼见过很多次，包括我自己刚接触多选时也中过招。

现象是这样的：TListBox 里有五个大区，用户先点击“华东大区”，ItemIndex 变成 0。然后按住 Ctrl 再点击“华北大区”，ItemIndex 变成 1。这时候你如果写了一句：

if ListBox1.ItemIndex >= 0 then ShowMessage(ListBox1.Items[ListBox1.ItemIndex]);

你以为弹出的是第二个选中的“华北大区”，可实际上多选模式下已经选中的“华东大区”你完全没拿到。ItemIndex 此刻只代表“最后一次点击的那行”的索引，它和“当前选中了多少项、选中了哪些项”完全是两个概念。

真实业务里更隐蔽的问题是：用户可能用 Ctrl + 点击的方式取消选中某项。取消选中之后，ItemIndex 指向的恰恰是刚被取消的那一项，如果你照着 ItemIndex 去读选中值，读出来的结果反而是“没选中的项”。

正确的做法永远是遍历 Selected 数组。我习惯封装一个通用函数：

function GetSelectedItems(AListBox: TListBox): TArray<string>; var i, n: Integer; begin n := AListBox.SelCount; SetLength(Result, n); if n = 0 then Exit; n := 0; for i := 0 to AListBox.Items.Count - 1 do begin if AListBox.Selected[i] then begin Result[n] := AListBox.Items[i]; Inc(n); end; end; end;

函数的命名直接对应“拿选中项集合”这个动作，以后任何代码只要调用它，就不需要重复写遍历逻辑，也杜绝了“只拿最后点击项”这种低级问题。注意我用 SelCount 预分配了数组长度，另一重好处是：两个循环之间 SelCount 可能变化（极端情况），所以第二次循环里不要再用 SelCount 判断是否结束，直接用 Items.Count。

4.2 坑二：TListBox 没有 OnSelectionChange 事件，只有 OnClick

如果你在 Delphi 的代码编辑器里给 TListBox 找事件，你会发现在事件列表里根本没有 OnSelectionChange 这一项，很多人第一次找这个事件的时候会很困惑，甚至以为是版本问题。

TComboBox 有 OnChange，因为它的核心是“当前值变化了，通知我”；TEdit 也有 OnChange。但 TListBox 在 VCL 框架里没有把“选中集合变化”封装成一个公开事件，只把用户点击行为暴露为 OnClick。这在很多场景下够用，但有一个缺口：如果用户用方向键上下移动，再按空格切换选中状态，或者使用鼠标在选项间拖拽跨越，OnClick 并不一定在每一次选中状态变化的瞬间触发。

要解决这个问题，我一般会继承一个自定义的 TListBox，拦截 Windows 消息层发给控件的选中变化通知。原理是：当标准 Windows 多选列表框的选中状态变化时，系统会发送 LBN_SELCHANGE 通知，VCL 把它反射成 CN_SELCHANGE 消息交给控件。TListBox 内部处理了这条消息，但没有把这个时刻暴露成自定义事件。我们可以写一个十行左右的子类：

type TSelectionListBox = class(Vcl.StdCtrls.TListBox) private FOnSelectionChange: TNotifyEvent; protected procedure CNSelChange(var Message: TMessage); message CN_SELCHANGE; published property OnSelectionChange: TNotifyEvent read FOnSelectionChange write FOnSelectionChange; end; implementation procedure TSelectionListBox.CNSelChange(var Message: TMessage); begin inherited; if Assigned(FOnSelectionChange) then FOnSelectionChange(Self); end;

需要提醒一下，示例里用到 CN_SELCHANGE 常量，记得在单元 uses 里引用 Winapi.Messages。如果你的项目里已经有第三方的多选 ListBox，也可能自带 OnSelectionChange 事件，但原理基本一致。

有了这个事件之后，数据同步的触发点从 OnClick 升级为“任何方式导致选中集合变化”的瞬间。我自己的体会是：单纯教学演示用 OnClick 完全够用，但如果是做自定义控件给公司内部多个项目用，继承一个事件感知的 ListBox 更稳妥，一劳永逸。

4.3 坑三：BeginUpdate/EndUpdate 更新 Items 时会丢掉选中状态

数据同步演示如果做成“动态刷新”的版本，一定会遇到这个问题：当 TListBox 的数据源发生变化，你要重建 Items 列表时，原本的选中状态该怎么处理？

很多人的第一反应是直接清空再填充：

ListBox1.Items.BeginUpdate; try ListBox1.Items.Clear; // 重新填充数据 finally ListBox1.Items.EndUpdate; end;

运行之后你很快会发现：Items 更新成功了，但之前选中的几项全部变成未选中。如果用户只是在这个界面里做筛选，刷新一次数据就把他选好的条件清空，体验非常糟糕。

正确的姿势是：刷新前先记录选中的业务 ID，刷新后按 ID 重新勾选。注意这里一定要用“唯一标识”而不是“显示文本”或“索引”，因为数据刷新后索引必然变动，显示文本可能重复，只有 ID 是可靠的。

var SelectedIDs: TArray<Integer>; i, j: Integer; begin // 1. 记录选中 ID SetLength(SelectedIDs, 0); for i := 0 to ListBox1.Items.Count - 1 do if ListBox1.Selected[i] then begin SetLength(SelectedIDs, Length(SelectedIDs) + 1); SelectedIDs[High(SelectedIDs)] := Integer(ListBox1.Items.Objects[i]); end; // 2. 刷新数据 ListBox1.Items.BeginUpdate; try ListBox1.Items.Clear; // ... 重新填充 finally ListBox1.Items.EndUpdate; end; // 3. 重新选中 for i := 0 to ListBox1.Items.Count - 1 do begin for j := Low(SelectedIDs) to High(SelectedIDs) do begin if Integer(ListBox1.Items.Objects[i]) = SelectedIDs[j] then ListBox1.Selected[i] := True; end; end; end;

这段代码的性能如果数据量上千可能会有点慢，但演示场景完全够用。更高效的做法是把 SelectedIDs 转成一个哈希表或字典，用 O(1) 查询代替 O(n) 双重循环。真实项目里数据同步往往不在主线程高频执行，性能瓶颈轮不到这段代码，先把逻辑做对更重要。

4.4 关于重绘闪烁的补充

TListBox 在 Windows 上是原生控件，绘制行为由系统管理，很多 VCL 设置并不总是生效。如果你在同步函数里反复执行 Clear 再 Add，能明显看到列表内容闪烁。我建议两个处理：一是所有批量修改 Items 的操作都包在 BeginUpdate/EndUpdate 里，二是设置窗体的 DoubleBuffered = True，这个属性对整体窗体重绘有帮助，但不保证对原生列表框局部重绘完全生效。实测下来，真正有效的还是减少不必要的 Items 修改次数，项目里如果同步频率很高，可以考虑用 TVirtualStringTree 这类支持数据驱动的第三方控件，那就是另一个故事了。

5. 从“控件同步”走向“数据同步”：多选结果参与真实业务

5.1 把多选结果拼成 SQL 的 IN 条件

第 2 节我建议放了一个“应用筛选”按钮，现在它派上用场了。真实业务中，TListBox 多选的最终目标往往是把选中的值作为查询条件交给数据库，最常见的形式就是：

SELECT * FROM Orders WHERE RegionName IN ('华东大区', '华北大区')

在控件同步演示阶段，我们拿到的是 TListBox 里的选中项字符串。如果直接拼接字符串，要特别注意几个问题：空值、特殊字符、SQL 注入。下边这个函数是我比较推荐的写法：

function BuildInClause(AListBox: TListBox): string; var i: Integer; sb: TStringBuilder; begin if AListBox.SelCount = 0 then begin Result := 'IN (''@@NONE@@'')'; Exit; end; sb := TStringBuilder.Create; try for i := 0 to AListBox.Items.Count - 1 do begin if AListBox.Selected[i] then begin if sb.Length > 0 then sb.Append(','); sb.Append(QuotedStr(AListBox.Items[i])); end; end; Result := 'IN (' + sb.ToString + ')'; finally sb.Free; end; end;

这里有两个容易被忽略的点。一是 SelCount = 0 时必须返回特殊占位串。如果用户一个都没选，你直接生成空括号IN ()，大多数数据库会报语法错误；用IN ('@@NONE@@')可以保证查询能执行，但查不到任何行，符合“不选就不过滤出数据”的语义。二是用 QuotedStr 给每个值加单引号，同时转义文本内的单引号，至少能挡住一部分字符串拼接带来的语法错误。这里只是演示“怎么把多选结果变成可用条件”，真正放到生产环境的 SQL，请一定优先考虑参数化查询，下节说。

5.2 用参数化 IN 查询替代字符串拼接

字符串拼 SQL 在演示代码里看着很直观，但干这行时间长了你就知道，生产环境到处拼字符串迟早出事故。参数化 IN 查询是更稳的写法。

思路很简单：为每个选中的值生成一个参数占位符，再把参数值逐项绑定。以 FDQuery 为例：

var i, ParamIndex: Integer; begin FDQuery1.SQL.Text := 'SELECT * FROM Orders WHERE RegionName IN ('; ParamIndex := 0; for i := 0 to ListBox1.Items.Count - 1 do begin if ListBox1.Selected[i] then begin FDQuery1.SQL.Text := FDQuery1.SQL.Text + ':P' + IntToStr(ParamIndex) + ','; FDQuery1.ParamByName('P' + IntToStr(ParamIndex)).AsString := ListBox1.Items[i]; Inc(ParamIndex); end; end; FDQuery1.SQL.Text := Copy(FDQuery1.SQL.Text, 1, Length(FDQuery1.SQL.Text) - 1); // 去掉逗号 FDQuery1.SQL.Text := FDQuery1.SQL.Text + ')'; end;

这段代码有个前提：StringBuilder 在 VCL 的老版本里使用时注意引用 System.SysUtils。而且动态改变 SQL.Text 不一定在所有数据库驱动下都能正确处理参数集合，有的驱动要求参数必须在 SQL 准备前准备好。最稳妥的方式是先用循环把 SQL 拼好，再一次性统一 Bind 参数。不管具体驱动怎么处理，思路是通用的：占位符数量对应选中项数量，参数值用数据库驱动提供的类型化 API 绑定。这对防止注入和类型转换错误都有很大帮助。

写好参数化版本之后，一个真实的筛选按钮就完成了：用户在 TListBox 多选一堆条件，点击“应用筛选”，SQL 自动携带所有选中值，查询结果回到数据集里。整个链路从头到尾都是“数据同步”的体现。控件之间同步只是第一步，把界面同步到数据库，才是最终目的。

5.3 从内存同步到业务同步：以主键 ID 为中心

整篇文章第 3 节一直在讲 TListBox 和 TComboBox 之间的同步，那属于“内存里的同步”。真实项目里，这个同步链条还要继续延长：本地选中的集合要提交到服务端，服务端可能已经更新了数据，再回传到本地时，原来的索引和文本可能都变了。

所以我在 3.1 里强烈建议用 AddObject 绑定业务主键 ID。有了这个 ID，整个同步链路就稳了：用户选中的是“华东大区”这个显示文本，程序背后记录的是“大区ID = 101”。提交给服务端时传 ID 集合，服务端改动之后返回的仍然是 ID + 名称的集合，本地程序用 ID 匹配，重新设置 ListBox 的选中状态。无论文本怎么变、顺序怎么排，同步不会错。

举个例子，开发一个离线数据同步模块：程序在无网时允许用户从 TListBox 里选好一批任务 ID，点击同步按钮后，选中 ID 集合先写入本地缓存表；网络恢复后，后台线程把缓存表里的 ID 集合批量提交给服务端。服务端返回结果时，可能部分 ID 已经被删除，那本地缓存里就要做差异同步：把已删除的 ID 从缓存清掉，仍存在的 ID 更新状态。你会发现，这个离线场景最核心的数据结构仍然是“ID 集合”，而不是“选中索引集合”或“文本集合”。控件同步和业务同步的底层逻辑在这里完全打通。

这也是为什么我在第 3 节反复强调“不要用索引，用 ID”。索引是控件的内部状态，离开这个窗体就失去意义；ID 才是业务世界里的稳定标识。写完这个演示项目后如果你想继续深入，可以试着把 TListBox 换成 TCheckListBox，再把 TComboBox 换成一个 TFDMemTable，你会发现核心同步逻辑几乎不用改，因为所有控件都遵循“绑定主键、读取选中集合、按主键回写”这条规则。

最后再说几句

这节内容是基于我个人在维护进销存、报表查询和老旧教学系统时反复打磨出来的体会。如果你照着这篇文章敲一遍，你会发现 TListBox 作为一个“多选复选框”去用，难点从来不在拖控件和设属性，而在“选中状态怎么稳定地在不同控件之间传递”。我自己的建议是：初学阶段不要急着上第三方多选控件，先用标准 TListBox 把 MultiSelect、ExtendedSelect、Selected 数组、CN_SELCHANGE 这些概念吃透。等你能流畅地处理 ItemIndex 陷阱、批量刷新选中状态丢失、多选结果转参数化查询这些问题之后，再看任何高级列表控件，都会觉得通透很多。