小编Ofe*_*hem的帖子

我正在使用此函数在特定位置的 TImage 上绘制 png：

procedure TForm1.PlacePNG(nam: string; px, py: Integer);
var
  vPic: TPicture;
  vSrc: TGraphic;
begin
  vPic := TPicture.Create;
  try
    vPic.LoadFromFile(Nam);
    vSrc := vPic.Graphic;
    Image1.Canvas.Draw(px, py, vSrc);
  finally
    vPic.Free;
  end;
end;

我的问题：在不失去透明度的情况下，对 png 文件的一部分执行此操作的最佳方法是什么？