1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
DC:HDC;
Memory_DC:TCanvas;
pngImage:TPngImage;
begin
DC :=GetDC(Handle);
pngImage :=TPngImage.Create;
Memory_DC :=TCanvas.Create;
Memory_DC.Handle :=DC;
pngImage.LoadFromFile('1.png');
BitBlt(Memory_DC.Handle,0,0,pngImage.Width,pngimage.Height,pngimage.Canvas.Handle,0,0,SRCCOPY);
ReleaseDC(Handle,DC);
Memory_DC.Free;
pngimage.Free;
end;