Animated images

[goranp13]

Hello to all
I am a newbee, i am making application and I have put three images (Arrows), now I want to show them one after another to simulate moving arrow. Can anyone help me with this.

Thanks.

[Mike.Cornflake]

You can actually move the image.

Assuming you've put the arrow image in a TImage called Image1, then try the following

Put a button on the form, and add the following code to it...

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
Begin
  //Arrow1.Left := Arrow1.Left + 10;  // Use this code if you're using a TArrow instead of a TImage...
  Image1.Left := Image1.Left + 10;
End;

[emil]

-make a image (from top - additional - TImage)
-make a timer (from top - system -timer);
-click on timer, click on interval, set it from 1000 to 50
-now change the name of the images: if you have 3 images set their nam to 1 2 and 3 (enter in the folder and change the name)
-in program var i:integer;
-click on events (from timer)
-click onTimer
-now write:
i:=i+1;
image1.picture.LoadFromFile(intToStr(i)+'.png');
if i=3 then i :=0;

.png or .bmp

its very easy algoritm and the most useful

if you want to optimize it you can try:

make an array of pictures:
var
  pic:array[1..3] of TPicture;

procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=1 to 3 do  pic:=TPicture.create;

pic[1].loadFromFile('1.png');
pic[2].loadFromFile('2.png');
pic[3].loadFromFile('3.png');
end;

now, at the "OnTimer":
inc(i);

image.picture:=pic[ i ]

if i=3 then i:=0;

[goranp13]

Thanks