怎么在image控件里按一定时间间隔循环显示10张图片，高手赐教，(50分)

D

delphikings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #1

如题！谢谢!

 

E

echolan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #2

用Timer定时，在Timer中加入计数，10次后返回。

 

D

delphikings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #3

是啊，我用timer了，以下是在timer的事件里的代码
for i:=1 to 9 do
begin
temp:='00'+inttostr(i)+'.jpg';
image1.Picture.LoadFromFile(temp);
end;
可是总显示一张，帮忙看看，最好带源码

 

C

c2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #4

var i:integer
filename:string;

for i:=0 to 9 do
begin
filename:=inttostr(i)+'.图片格式';
image1.picture.loadfile(filename);
if i:=9 then i:=0;
end;

 

C

c2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #5

还有时间的循环忘了，自己加

 

D

delphikings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #6

我就是不知道时间应该怎么循环，你这个想法跟我的差不多，你把时间加上好吗
谢谢

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #7

你的方法不对!!!!
声明一个全局变量：
var
ImgIndex:integer;
并初始化为 0;

在timer中如下进行：

var
temp:string;
begin
temp:='00'+inttostr(iMgIndex)+'.jpg';
image1.Picture.LoadFromFile(temp);
inc(ImgIndex);
if ImgIndex=10 then ImgIndex:=0;
end;

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #8

procedure TForm1.Timer1Timer(Sender: TObject);
const
ImgId: Integer = 0;
begin
image1.picture.loadfile(inttostr(imgid)+'.图片格式');
inc(ImgId);
if ImgId > 9 then ImgId := 0;
end;

 

D

delphikings

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #9

谢谢，我想问问为什么用for 循环就不行呢

 

Y

yangxiao_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #10

因为在timer中是没阁一定时间就触发依次，不用循环 了

 

P

pengjinlongex

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #11

不要用全局变量吧，用一个私有变量解决更好
private
ImgIndex:integer;
并初始化为 0;

在timer中如下进行：

var
temp:string;
begin
temp:='00'+inttostr(iMgIndex)+'.jpg';
image1.Picture.LoadFromFile(temp);
inc(ImgIndex);
if ImgIndex=10 then ImgIndex:=0;
end;

 

B

bluenats

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #12

看看ttimer怎么用吧，这些基本控件都应当掌握的

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #13

Timer timer timer

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-27

• #14

>>谢谢，我想问问为什么用for 循环就不行呢
Timer每执行一次，就会把你的for循环全部执行完，最后载入的当然只是最后一张图片而
不会是其他图片了。按照jsxjd说的做就没错了。

 

D

DancingQueen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-26

• #15

同意HunterTeam的说法，没错的