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?