摘要： 1 var 2 bmp :TMemoryStream ; 3 begin 4 inherited; 5 bmp := TMemoryStream.Create ; 6 Image2.Picture.Graphic.SaveToStream(bmp); 7 bmp.Position := 0; 8 Image1.Picture.Graphic := TJPEGImage.Creat... 阅读全文