如何将项目添加到 TListBox 并将其与数据对象关联？答案

【问题标题】：How do I add an item to a TListBox and associate it with a data object?如何将项目添加到 TListBox 并将其与数据对象关联？
【发布时间】：2011-08-26 10:26:14
【问题描述】：

查看代码：

function ShowItem(MyData: TMyData): TListItem;
var
  vListItem: TListItem;
begin
  vListItem := ListView1.Items.Add;
  vListItem.Data := MyData;

  vListItem.ImageIndex := 1;
  vListItem.Caption := MyData.Caption;

  Result := vListItem;
end;

我需要做些什么才能使它适用于 TListBox？ ListView.Items 属性似乎是 TListItem 的属性，而 ListBox.Items 不是，这意味着该函数将无法为 TListBox 返回正确的参数。

如何将其转换为 TListBox？

谢谢

【问题讨论】：

标签： delphi listview listbox listboxitems

【解决方案1】：

应该这样做：

function ShowItem(MyData: TMyData): Integer;
begin
  Result := ListBox1.Items.AddObject(MyData.Caption, MyData);
end;

【讨论】：

【解决方案2】：

没有等价物，因为列表视图的 ImageIndex 属性没有列表框的类似物（除非您自己实现它并自定义绘制）。

【讨论】：