在运行时更改ListView图像Delphi 10.1 Berlin

Question

Delphi 10.1柏林。 ListView.ItemAppearance = DynamicAppearance。 我想在运行时更改ListViewItem中的Image。

https://msdn.microsoft.com/en-us/library/bb675163(v=vs.110).aspx

我的代码：

procedure TForm1.Button2Click(Sender: TObject);
var
  k:integer;
begin
  LsvAl.BeginUpdate;
  for k := 0 to LsvAl.ItemCount-1 do
  begin
    if (k mod 2)=0 then
    begin
      TListItemImage(LsvAl.Items[k].Objects.FindDrawable('Imp1')).Bitmap.Assign(Image2.Bitmap); //
      TListItemText(LsvAl.Items[k].Objects.FindDrawable('TxtNum')).TextColor:=$FFFF2346;
    end
    else
    begin
      TListItemImage(LsvAl.Items[k].Objects.FindDrawable('Imp1')).Bitmap.Assign(Image1.Bitmap);
      TListItemText(LsvAl.Items[k].Objects.FindDrawable('TxtNum')).TextColor:=$FF009DFE;
    end
  end;
  LsvAl.EndUpdate;

端;

结果：所有图片都是红色（Image1也是如此）。

我做错了什么？

Answer 1

哪里是一个插件 - 在分配位图后，您可以使用Item owner AItem.OwnsBitmap：= True;