delphi 如何使用ttimer 在20秒中内在屏幕上依次轮播数据库中10张图片。
3个回答
展开全部
20秒10张图，每张2秒。timer的interval设置为2000，在OnTimer里头写加载图片的代码，每次累加。最简单的是用image控件
sPath := GetfilePathByIdx(idx);
image.picture.loadfromfile(sPath); //如果图片大，可以一开始就加载进来，然后用picture.assign()赋值
if idx = 10
idx = 1
else
inc(idx);
sPath := GetfilePathByIdx(idx);
image.picture.loadfromfile(sPath); //如果图片大，可以一开始就加载进来，然后用picture.assign()赋值
if idx = 10
idx = 1
else
inc(idx);
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用图象列表控件和时钟控件来配合着做,明天回家后试试再补代码
追问
不好意思，急着交，先用两个ttimer完成了，等你的代码！
追答
呵，已经有人回答了，同样的想法
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
百度一下
追问
我要是找得到会提问么……
追答
也是 嘿嘿 可惜我真不知道答案
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
