恢复image在设计时的图片?(50分)

  • 主题发起人 主题发起人 test01
  • 开始时间 开始时间
T

test01

Unregistered / Unconfirmed
GUEST, unregistred user!
在程序里用代码改变image控件的图片后,想增加《恢复默认图片》功能,如何做?
 
再窗口上再放一个Image设为隐藏,在修改原Image控件的图片时
NewImage.Picture := OldImage.Picture;
《恢复默认图片》
OldImage.Picture := NewImage.Picture;
 
var
image:timage;
//保存
image:=timage.create;
image.picture:=image1.picture;
//恢复
image1.picture:=image.picture;
别忘了退出时:image.free;
 
呵呵。。。真的只有如此做了?。。。
我还以为我的同样想法很肤浅的。
 
你可以备份一个位图文件的路径,到时候加载进来,这样省资源
 
改写image控件类,这样就可以自动完成这个功能了
 
将位图放到资源中吧,需要时加载就是了
 
多人接受答案了。
 
后退
顶部