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