'用个Timer控件,如timer1,并设置Interval=200接着加个这个
timer1_timer()
image1.picture:=nil;
imagelist1.AddIcon(c);
imagelist1.GetIcon(0, image1.picture.icon);
end sub
timer1_timer()
image1.picture:=nil;
imagelist1.AddIcon(c);
imagelist1.GetIcon(0, image1.picture.icon);
end sub
解决方案 »
- 如何判断 字符串中 包含有 unicode 字符
- 一个关于获得工作组内所有计算机的问题。
- 为什么?我在建立active 控件时,新建立的method方法和event事件调用的时候无法显示出来呢?请高手帮忙指点一下!!谢谢!!
- 李维书中关于ADOConnection的简单问题
- 请smhpnuaa来领分啊(因为问题还没完全解决,所以先给100分哈^_*)
- 跪求一个问题,没积分了就请大家帮个忙吧
- 大家认为程序员大本营2001(BORLAND版)怎么样啊?
- 如何横版打印form?
- 有谁用过Delphi的flash插件?
- 有谁能给我发一个ADO26的升级补丁,是可以解决空记录问题的,我的邮箱是[email protected]
- 有关测试工具的写法,是用thread好 还是用其他好,我想要当时进行的,也叫同步吧!这样行吗?
- 年后节日好找不?
问题出在
image1.picture:=nil;
并不能使image不显示,如何使image得图片不存在,image显示它下面得form ?
image1.picture:=nil;改为
image1.picture.bitmap:=nil;
sleep(1000);
image1.Visible := true; ;
这样也可以,不过sleep老使程序停止响应,影响我其他工作乐
能用其他的代替嘛?