本文整理自网络,侵删。
varimgStream:TMemoryStream;MyImage:TMemoryStream;beginimgStream:=TMemoryStream.Create;MyImage:=TMemoryStream.Create;
Image1.Picture.SaveToStream(imgStream); imgStream.Position:=0;
MyImage.LoadFromStream(imgStream);
Image2.Picture.LoadFromStream(MyImage);
相关阅读 >>
Delphi timagelist 中使用 透明 png 图标
Delphi edit1.gettextlen 获取编辑框字符数
windows关机函数exitwindowsex使用大全(适用windows所有操作平台)
更多相关阅读请进入《Delphi》频道 >>