摘要:
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... 阅读全文
posted @ 2016-06-01 10:56
delphi老中医
阅读(624)
评论(0)
推荐(0)