delphi – 为什么我在调用BitBlt或CopyRect时会失去透明度？

我试图将32×32磁贴从TBitmap复制到TPaintbox,这是我的地图编辑器,但我似乎无法使透明度正常工作.

见下图：

注意：出于演示和测试的目的,我在TPaintbox下面放置了一个TImage,这有助于查看透明度是否有效.

如您所见,常规瓷砖绘制正确,但应该是透明的瓷砖是用白色背景绘制的.

我现在正在使用适当的类来管理我的地图和图块,下面是我尝试绘制的两种方法：

CopyRect：

procedure TMap.DrawTile(Tileset: TBitmap; MapX,MapY,TileX,TileY: Integer;
  MapCanvas: TCanvas);
begin
  if TileIsFree(MapX,MapY) then
  begin
    MapCanvas.CopyRect(
      Rect(MapX,MapX + fTileWidth,MapY + fTileHeight),Tileset.Canvas,Rect(TileX,TileY,TileX + fTileWidth,TileY + fTileHeight));
  end;
end;

的BitBlt

procedure TMap.DrawTile(Tileset: TBitmap; MapX,MapY) then
  begin
    BitBlt(
      MapCanvas.Handle,MapX,fTileWidth,fTileHeight,Tileset.Canvas.Handle,SRCCOPY);
  end;
end;

我已经尝试为tileset使用位图和png图像格式(屏幕截图上的左图).位图和png之间的唯一区别是,当它是png时,CopyRect很难绘制甚至几个图块,但BitBlt设法绘制没有任何明显的缺点.

无论如何,如何在不丢失透明度的情况下将TBitmap的一部分复制/绘制到TPaintbox上,或者在我的情况下如何不复制白色背景？

更新1

继下面的一些评论之后,我尝试调用AlphaBlend函数,但这仍然会产生不良结果(注意透明区域周围的蓝色)：

procedure TMap.DrawTile(Tileset: Graphics.TBitmap; MapX,TileY: Integer;
  MapCanvas: TCanvas);
var
  BlendFn: TBlendFunction;
begin
  if TileIsFree(MapX,MapY) then
  begin
    BlendFn.BlendOp := AC_SRC_OVER;
    BlendFn.BlendFlags := 0;
    BlendFn.SourceConstantAlpha := 255;
    BlendFn.AlphaFormat := AC_SRC_ALPHA;

    AlphaBlend(
      MapCanvas.Handle,BlendFn);
  end;
end;

谢谢.