Принцип работы такой:
На форму кладете стандартный TImage
Создаете экземпляр TGifPlayer
Задаете свойство FGifPlayer.Image:=Image; где Image это лежащая на форме TImage
Загружаете гифку FGifPlayer.LoadFromFile('D:\Embarcadero\Projects\ShareCode\FMX.GifUtils\GIF_Example.gif');
Запускаем проигрывание гифки FGifPlayer.Play;
Вот код:
unit UnitFormMain;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.GifUtils, FMX.Objects;
type
TFormMain = class(TForm)
Image: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
FGifPlayer : TGifPlayer;
end;
var
FormMain: TFormMain;
implementation
{$R *.fmx}
procedure TFormMain.FormCreate(Sender: TObject);
begin
FGifPlayer:=TGifPlayer.Create(Self);
FGifPlayer.Image:=Image;
FGifPlayer.LoadFromFile('D:\Embarcadero\Projects\ShareCode\FMX.GifUtils\GIF_Example.gif');
FGifPlayer.Play;
end;
end.
Вот демо проект во вложении:
FMX.GifUtils.Demo.zip