@NamenLozer:
Hab deine Variante ausprobiert und bis auf den Punkt das ich das JPeg nicht laden kann, weil er das in das Bitmap nicht reinladen kann, gehts. Ich habe das Bild einfach als Bitmap gespeichert und schon konnte ich alles anwenden.
Nur eine Sache geht nicht. Ich habe nun alle Bilder in dem Feld drin. Und genau ein Bild kann ich der TImage Komponente zuweisen, alle weiteren werden scheinbar ignoriert.
Hab ich nun irgend was falsch gemacht? Ändern tue ich das ganze per:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
bitblt(Image1.Canvas.Handle, 0, 0, breite, hoehe, Bilder[pos].Canvas.Handle, 0, 0, srccopy);
inc(pos);
if pos > anzahl then pos := 0;
end;
Danke für die Hilfe bisher!
Edit: Hab es gefunden, per Image1.Repaint. Das hatte ich vergessen gehabt
