怎么样做个动作序列？(50分)

Z

zzf888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-17

• #1

比如要每隔500MS运行以下几个动作
TForm1.Image1Click;
TForm1.Image11Click;
但是上面的动作应能改成不同的图片，我不会做请大家帮忙。
QQ：38348706

 

R

retun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-17

• #2

是两张图还是有多张呀？
有一个时钟，然后在时钟里面写事件就行了！

 

Z

zzf888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-17

• #3

有几百张，我只是输入一个数字后出来一个动作。

 

F

firstlove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-17

• #4

是这样吗？
case number of
1:TForm1.Image1Click;
2:TForm1.Image2Click;
....
end;

 

Z

zzf888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-17

• #5

不是只有一个动作呀！比如
输入1的话就是
begin
TForm1.Image1Click;
TForm1.Image11Click;
end;
输入2的话就是
begin
TForm1.Image2Click;
TForm1.Image12Click;
end;
……………

 

F

firstlove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-17

• #6

大根意思：一些事件记不起来了应该看得懂
procedure b_click(number:integer);
begin
case number of
1:TForm1.Image1Click;
2:TForm1.Image2Click;
....
end;
end;

procedure Tform1.button1click(....)
begin
b_click(i) //i 为你要按的号
timer1.enabeld:=true;
end;

procedure Tform1.ontimer1timer(....)
beign
inc(j)
b_click(j)
end;

不知这样行不行

 

Z

zzf888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-17

• #7

接受答案了.