Animation mit TImage!

[Ag3nt]

So Problem auch gelöst!

Delphi ist ja EaSY
gefällt mir

Also hier der Code fürs rukelfreie

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin


        Image1.Picture.LoadFromFile ('pics/1_'+IntToStr(temp)+'.bmp');
        Paintbox1.Canvas.Draw(0,0,Image1.Picture.Graphic);
        inc(temp);
        if temp = 4 then temp := 1;



end;

procedure TForm1.FormCreate(Sender: TObject);
begin
temp:= 1;
end;

end.

Man muß einfach das Pic in einem Image laden und dann in eine Paintbox kopieren uns schon gehts