方法一
全域物件 GPngImage
ClipBoard.Assign(GPngImage);
方法二:
LPngImage.SaveToClipBoardFormat(LFormat, LData, LPalette);
ClipBoard.SetAsHandle(LFormat, LData);
不管用哪一種方法,復制的圖片還是會出現什么內容沒有白色圖片,求解
uj5u.com熱心網友回復:
我用的xe 10.2剛試了沒有問題。ICON 不行,圖片可以,我粘貼到畫板
user vcl.Clipboard
procedure TForm1.btn2Click(Sender: TObject);
var
myfor: Word;
aData: THandle;
aPalatte: HPALETTE;
begin
img1.Picture.SaveToClipboardFormat(myfor, aData, aPalatte);
Clipboard.SetAsHandle(myfor, aData);
end;
uj5u.com熱心網友回復:
做個回圈,比如一分鐘一次,這種情況就出現了轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/37819.html
標籤:VCL組件開發及應用
下一篇:Delphi
