用Delphi如何实现多幅图片轮换的效果?

发布网友发布时间：2022-04-23 09:43

共2个回答

热心网友时间：2022-04-23 11:12

将三张图片放在一起重叠起来，然后加一个timer组件，在ontimer里面写代码，用一个变量i来计数，每秒i自增1，大于3以后初始化为1，所以i可以取1，2，3三个值，每秒变一次
当i=1的时候就让图片1的visible属性为true，图片2，3的visible属性为false；
当i=2的时候就让图片2的visible属性为true，图片1，3的visible属性为false；
当i=3的时候就让图片3的visible属性为true，图片1，2的visible属性为false。。。
这样就可以实现三张图片每秒轮换一下，当然，可以设置timer的interval属性来改变时间间隔，每两秒，每三秒都可以。。。
哪里不懂的就密我吧

i在代码最上边var后面定义
var
Form1: TForm1;
i:integer;
ontimer代码：
procere TForm1.Timer1Timer(Sender: TObject);
begin
if (i<>1) and (i<>2) and (i<>3) then i:=1;
if i=1 then
begin
image1.Visible:=true;
image2.Visible:=false;
image3.Visible:=false;
end;
if i=2 then
begin
image1.Visible:=false;
image2.Visible:=true;
image3.Visible:=false;
end;
if i=3 then
begin
image1.Visible:=false;
image2.Visible:=false;
image3.Visible:=true;
end;
i:=i+1;
end;

热心网友时间：2022-04-23 12:30

如果你把图片作为大字段存入数据库:
1 界面上放一个dbimage控件,对应表中图片字段.
2 在定时器中控制表记录循环,代码如下:
if table1.eof then
table1.first;

if not table1.eof then
table1.next;

如果你把图片路径存入数据库,图片还在硬盘上某个位置,那么:
1 界面上放一个image控件
2 在定时器中控制表记录循环,同时改变图片的路径属性。代码如下:
if table1.eof then
table1.first;

if not table1.eof then
begin
image1.picture.loadfromfile(table1.fieldbyname('picdir').asstring);
table1.next;
end;