delphi - 带有 LiveBindings 的自定义列表框

Question

我正在尝试制作一个具有更多详细信息和 LiveBindings 链接的自定义 ListBox。在 bindlist 中，我只看到标准字段：Text、Detail、Bitmap....

尝试在以下代码中绑定时：

  Item := bliMS.FillExpressions.AddExpression;
  Item.ControlMemberName := 'SubTitle';
  Item.SourceMemberName := 'PAY_NAME';

引发异常：

项目 xxxxxx 引发异常类 EEvaluatorError，并带有消息“找不到子标题”。

如何将 SubTitle 名称添加到我的自定义 ListBox？

Answer 1

您的声明： Item.ControlMemberName := 'SubTitle'; 将不起作用，因为 ListBox/ 中没有实际的ControlMember / 对象 /“字段” TList<ListViewItem>（实际上，更正确的说法是TListListBoxItem中的每个对象中实际上都没有）称为 'SubTitle' . Items

相反，您必须使用内置 文本对象 ( ControlMembers )，其中只有 2 个：

1. Item.Text
2. Item.Detail

如果由于某种原因您必须拥有一个“ SubTitle” ControlMember，那么您需要创建一个自定义ListBox或ListBoxItemAppearance对象并注册它。