png - 在 Delphi XE8 中共享后，TImage 将透明的 PNG 图像保存为 JPEG

Question

我为 Delphi XE8 中的 TImage 组件分配了一个透明的 PNG 图像，使用 sharesheet 操作来共享此图像。我的智能手机上的成功结果现在是 JPEG 图像，它明显失去了所有透明度。我的透明背景现在变成黑色。

我需要我的图像保持其透明度，我该怎么办？

这是我的代码：

var
ShareSheetForm: TShareSheetForm;



implementation

{$R *.fmx}

{$R *.LgXhdpiPh.fmx ANDROID}


    procedure TShareSheetForm.ShowShareSheetAction1BeforeExecute(Sender: TObject);

begin


    ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);

end;


end.