3

见代码:

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?

谢谢

4

2 回答 2

9

这应该这样做:

function ShowItem(MyData: TMyData): Integer;
begin
  Result := ListBox1.Items.AddObject(MyData.Caption, MyData);
end;
于 2011-08-26T10:38:44.353 回答
1

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

于 2011-08-26T11:11:02.157 回答