Gif в Delphi Опции

[Vardes]

Такой вопрос, как можно отбразить gif в Delphi в компоненте Image?

[volvo]

Использовать модуль AxCtrls (в Дельфи 6 уже присутствует):

procedure TForm1.Button1Click(Sender: TObject);
var
  OleGraphic: TOleGraphic;
  fs: TFileStream;
begin
  try
    OleGraphic := TOleGraphic.Create;
    fs := TFileStream.Create(ExtractFileDir(ParamStr(0)) + '\test.gif', fmOpenRead or fmSharedenyNone);

    OleGraphic.LoadFromStream(fs);
    Image1.Picture.Assign(OleGraphic);
  finally
    fs.Free;
    OleGraphic.Free
  end;
end;

[Гость]

2 volvo
а как сделать, чтоб gif анимация была в Image?
C этим кодом картинка застывшая

[klem4]

как вариант - разделить гиф на кадры и в таймере выполнять вышеуказанный код, подгружая очередной слайд ...