用LiveBindings选择ListBox后如何访问数据记录

Question

我有一个TSQLDataset，我正在使用livebindings将它绑定到一个列表框。当我单击列表框项目时，我希望能够访问记录中的其他数据字段，但我不知道如何做到这一点，因为我无法将数据集获取到相应的项目。

我知道我可以获取ID字段，并使用活动绑定将其分配给Selected.Tag，但是我也不能确定这一点，但是如果可以，那么我可以使用另一个SQLQuery，然后返回查询的结果

SELECT * FROM Dataset WHERE ID=(Tag value)

这是可行的，但我不知道如何让livebindings在活动绑定填充列表框时设置项目标记值。

有没有人知道怎么做？

Answer 1

将ListBox的标记属性与记录的ID链接起来更容易。

Answer 2

在XE5 Samples目录中有一个来自Embarcadero的传感器信息演示应用程序...

在TListBox事件中有OnItemClick = lbMainItemClick，然后必须定义事件处理程序：

procedure TfrmAboutSensors.lbMainItemClick(const Sender: TCustomListBox; const Item: TListBoxItem);
begin
  if Assigned(Item.OnClick) then
    Item.OnClick(Item);
end;

然后，对于列表中的每一项：

for LItem in LListBox do
begin
    //LItem.ItemData.Accessory := TListBoxItemData.TAccessory.aDetail;  // my code
    //LItem.ItemData.Accessory := TListBoxItemData.TAccessory.aNone;    // my code
    LItem.OnClick := ListBoxItemClick;
end;

如果有帮助，请给我们回调。