TimageList 不包含名为 GetBitmap 的成员

Question

我想从一个ImageList到一个TImage（移动应用程序，fmx）加载图片。TImage 是我的自定义样式列表框 ( LBItem.StylesData['myimage']) 的一部分。标准方法是ImageList.GetBitmap(). 但是 GetBitmap 方法给了我一个错误：“ TimageList does not contain a member named GetBitmap”。任何解释或替代方案？提前致谢！

procedure TForm3.Button1Click(Sender: TObject);
var
    i         : Integer;
    LBItem    : TListBoxItem;
    Bitmap : TBitMap;
begin
    ListBox1.BeginUpdate;
    ListBox1.Items.Clear;
    Bitmap := TBitMap.Create;
    try
        for i := 0 to 3 do begin
            LBItem := TListBoxItem.Create(nil);
            LBItem.Parent := ListBox1;
            LBItem.StyleLookup := 'mystyle';
            LBItem.StylesData['mylabel'] := 'Some text...';
            //Bitmap.LoadFromFile('D:\Koala.jpg');
            ImageList1.GetBitmap(i, Bitmap);
            LBItem.StylesData['myimage']:= Bitmap;
        end;
    finally
        ListBox1.EndUpdate;
    end;
end;

Answer 1

假设你已经有名称的TImage中Image1，有一个名字的TImageListImageList1并在列表中图像的至少一个条目规模1.0叫Image1Hover，那么你可以用下面的例子来加载在一个“悬停图片”OnEnter的活动Image1：

procedure TForm1.Image1MouseEnter(Sender: TObject);
var
  Item: TCustomBitmapItem;
  Size: TSize;
begin
  ImageList1.BitmapItemByName('Image1Hover', Item, Size);
  Image1.Bitmap := Item.MultiResBitmap.Bitmaps[1.0];
end;