Timagelist -> Timage

[TheAn00bis]

Bei mir funktioniert das so wunderbar:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Image1.Picture.Assign(nil);
    ImageList1.GetBitmap(i, Image1.Picture.Bitmap);
    if i<ImageList1.count-1 then inc(i)
        else i:=0;
end;

Einfach einen Timer, eine gefüllte Imagelist und ein TImage auf die Form und den Code ins OnTimer des Timers packen.
Der Timer sollte nicht zu schnell eingestellt werden.

Edit:

Zitat von danku:

vor allem getbitmap von imagelist??
das picture soll doch ein bitmap bekommen!

Die Mühe eine Methode in der Hilfe nachzusehen machst du dir aber nicht?