unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1Click(Sender: TObject);
begin

image1:timage;
image1:picture.loadfromfile(opendialog1.filename);
tgifimage(image1.picture.graphic).animationspeed:=100;
tgifimage(image1.pictura.graphic).animate:=true;
//(animationspeed=0 to 1000)
//animationspeed设定动画速度。其实就是原始速度的百分比，例如50就是说是原始速度的50%;
//如果设置animationspeed=0，则gif没有动画效果。

     Image1.Picture.LoadFromFile('1.gif');
end;

end.
复制代码