gif filer i Delphi

componenter:

Timage
TTimer
TButton


private
    ImageListIndex: integer;
    { Private declarations }



hvis ikke animatioen er stor, så kan du indlæse alle billederne ind i en Timagelist
alle billederne skal gemmes som *.bmp.
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageListIndex := 0;
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,0,true);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,ImageListIndex,true);

Inc(ImageListIndex);

if ImageListIndex > ImageList1.Count -1 then
  ImageListIndex := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;

if Timer1.Enabled then
  Button1.Caption := 'Stop'
else
  Button1.Caption := 'Start';
end;

Alternativt kan du bruge TGIFImage fra http://finn.mobilixnet.dk/delphi/

Fandt du ud af noget? :)