image - 为什么我不能在图像的 Canvas 上绘图？

Question

我正在使用 Delphi XE8。

我正在为我的图片加载背景图片:

var
  Png: TPngImage;
begin
  Png := TPngImage.Create;
  try
    Png.LoadFromResourceName(HInstance, 'background');
    Image1.Picture.Graphic := Png;
  finally
    Png.Free;
  end;

这没问题，但是当我尝试在图像的 Canvas 上绘制时(我尝试了 LineTo)，我得到了这个错误:

Can only modify an image if it contains a bitmap

如何在已加载图片的图像上绘图？

Answer 1

答案可以在您引用的错误消息中找到:

Can only modify an image if it contains a bitmap.

因此，创建一个位图对象，将 PNG 图像分配给该位图，然后将该位图分配给 TImage 控件的 Picture。