How to extract frames from a TGifImage into Bitmaps?
问题 The demo below tries to draw the GIF on form's canvas. It doesn't work. The image won't advance. How to make it work? procedure TForm1.FormCreate(Sender: TObject); begin GIF := TGIFImage.Create; GIF.LoadFromFile('c:\2.gif'); end; procedure TForm1.FormDestroy(Sender: TObject); begin GIF.Free; end; procedure TForm1.Button1Click(Sender: TObject); VAR i: Integer; begin REPEAT for i:= 0 to GIF.Images.Count-1 DO begin DisplayGifFrame(i); Sleep(30); end; UNTIL FALSE; end; procedure TForm1