Delphi Loading GIF images

First, download the Tgifimage.pas unit first. Step: [Project]-->[add to Project ...] Select the Tgifimage.pas unit and compile it.

When using Timage to load the display GIF is usually installed tgifimage to extend the implementation, there will be dynamic creation of controls in use, but if the GIF picture is loaded directly, GIF animation will not move, it is necessary to create a Tgifimage class to load the animation, Finally, give it to timage. The code is as follows:

2. Procedure Tform1.button1click (Sender:tobject);
4. Var
6. Objimg:timage;
8. Objgif:tgifimage;
10. Begin
12. If Opendialog1.execute Then
14. Begin
16. Objimg: = Timage.create (self);
18. Objimg.parent: = self;
20. Objimg.setbounds (10, 20, 140, 200);
24. Objgif: = tgifimage.create;
26. Objgif.loadfromfile (Opendialog1.filename);
28. ObjImg.Picture.Assign (objgif);
32. Tgifimage (objImg.Picture.Graphic). Animate: = True;
34. End
36. End

Delphi Loading GIF images