Methods a
Global object GPngImage
ClipBoard. Assign (GPngImage);

Method 2:
LPngImage. SaveToClipBoardFormat (LFormat LData, LPalette);
ClipBoard. SetAsHandle (LFormat LData);

No matter which kind of way, copy images still can appear what no white, solving

CodePudding user response:

I am using xe 10.2

Just try there is no problem, not the ICON, images can be, I paste to the drawing board
The user the VCL. Clipboard

Procedure TForm1. Btn2Click (Sender: TObject);
Var
Myfor: Word;
AData: THandle;
APalatte: HPALETTE;
The begin
Img1. Picture. SaveToClipboardFormat (myfor aData, aPalatte);
Clipboard. SetAsHandle (myfor aData);

The end;

CodePudding user response:

Make a loop, such as once a minute, this kind of situation