在 Delphi 11中有没有使用GIF的方法？我尝试了几种不同的方法，都没有得到结果。我试着安装了TRxLib包，但是里面没有RXgifAnimated，就像我在一个问题中读到的那样。也许是因为我的是 Delphi 11？嗯，有办法吗？
kse8i1jr1#
您可以使用TImage来显示动画GIF图像。示例：1.将TImage添加到表单1.将GIF映像加载到TImage1.在按钮单击处理程序中编写以下代码：注意！如果在设计时不加载GIF图像，则必须手动将Vcl.Imaging.GIFImg单元添加到uses。
TImage
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;
1条答案
按热度按时间kse8i1jr1#
您可以使用
TImage来显示动画GIF图像。示例：
1.将
TImage添加到表单1.将
GIF映像加载到TImage1.在按钮单击处理程序中编写以下代码：
注意！如果在设计时不加载GIF图像，则必须手动将
Vcl.Imaging.GIFImg单元添加到uses。