delphi - Delphi 11 可以使用 GIF 吗？

Question

有没有办法在 Delphi 11 中使用 GIF？我尝试了几种不同的方法，但从未得到结果。

我尝试安装 TRxLib 包，但里面没有 RXgifAnimated，正如我在一个问题中读到的那样。也许是因为我的是Delphi 11？

那有办法吗？

Answer 1

您可以使用TImage来显示动画GIF图像。

示例:

1. 将 TImage 添加到表单
2. 将 GIF 图像加载到 TImage
3. 在按钮点击处理程序中编写以下代码:

注意!如果您在设计时没有加载 GIF 图像，则必须手动将 Vcl.Imaging.GIFImg 单元添加到 uses 中。

procedure TForm4.Button1Click(Sender: TObject);
begin
  with (Image1.Picture.Graphic as TGifImage) do
  begin
    AnimationSpeed := 100;  // percent of normal speed, range 0 through 1000
    Animate := True;
  end;
end;