Also entweder du machst daraus mit nem externen Programm ein Animated-Gif...
oder du machst was mit ner Imagelist und nem Timer...
Im OnTimer-Ereignis des Timers kommt einfach sowas:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| begin
ImageList1.GetBitmap(bild_zaehler,Image1.Picture.Bitmap);
Image2.Picture := image1.Picture;
if (bild_zaehler <> ImageList1.Count - 1) then
bild_zaehler := bild_zaehler + 1
else
bild_zaehler := 0;
end; |
Hab ne halbe Ewigkeit rumprobiert, es geht aber die Bilder dürfen nich transparent sein...
Brauchst 2 Images... Image1.Visible = false;
in die Imagelist macht einfach deine Bilder rein...
der Code is nich perfekt, falls jemand was besseres hat bitte posten
(mir ist nämlich schleierhaft warum man ein zweites Image braucht, denn wenn ich nur eins nehm aktualisiert er das Bild net, erst wenn ich dann Image2.Picture das Picture von image1 zuweis geht es komischerweise...)
Aber die Prozedur funktioniert *gg*
Wer das Konzept der Unendlichkeit verstehen will, muss nur das Ausmaß menschlicher Dummheit betrachten. (Voltaire)
