Question

在VCL中我有ImageList来存储图像。在FireMonkey中没有ImageList控件。如何在FireMonkey中存储图像供以后使用？

Answer 1

在FireMonkey（XE4）中添加图像

Project -> Resources and Images

然后访问它：

procedure TForm1.Button1Click(Sender: TObject);
var
  InStream: TResourceStream;
begin
  InStream := TResourceStream.Create(HInstance, 'MyPng', RT_RCDATA);
  try
    Image1.Bitmap.LoadFromStream(InStream);
  finally
    InStream.Free;
  end;
end;

感谢PeterVonča

Answer 2

因为在Delphi Android中没有ImageList，你必须：

将图像添加到项目中

项目 - ＆gt;资源和图片
将“资源和图片”中的图片保存为资源类型 RCDATA
添加此程序：

- ＆GT;

procedure TForm1.load_image_from_resource(var Im1: Timage; res_name: String);
var InStream: TResourceStream;
begin
  InStream := TResourceStream.Create(HInstance, res_name, RT_RCDATA);
  try
    Im1.Bitmap.LoadFromStream(InStream);
  finally
    InStream.Free;
  end;
end

然后使用例如：

var i : nativeint;
begin
  i := 1;      
  load_image_from_resource(Image1, 'Bitmap_' + inttostr(i));
end;

Answer 3

通过Project > Resources and Images将您的图片添加为资源。

Answer 4

对于现在正在查看此问题的人，因为Delphi XE8 FireMonkey具有TImageList组件

Answer 5

在表单上放置一个TPopupMenu并添加一些菜单项并分配每个TMenuItem的TBitmap。然后，您可以使用以下表达式访问位图：

PopupMenu1.Items[index].Bitmap

或

MenuItem1.Bitmap
MenuItem2.Bitmap
...

如何在FireMonkey中存储图像？

5 个答案: