попробывал зделать так:
Код:
procedure TSplashScreen.FormCreate(Sender: TObject);
var nGif:TGIFImage;
begin
nGif:=TGIFImage.Create;
nGif.LoadFromFile('img\loader.gif');
nGif.Animate := false;
loader.Picture.Assign(nGif);
nGif.Free;
end;
программа запускаеться без ошибок, но когда включаю анимацию
Код:
procedure TSplashScreen.FormShow(Sender: TObject);
var nGif:TGIFImage;
begin
nGif:=TGIFImage.Create;
nGif.loadfromfile('img\loader.gif');
nGif.Animate := true;
loader.Picture.Assign(nGif);
nGif.Free;
end;
программа снова выдает ту же ошибку