22.06.2009, 16:10
|
|
Гуру
|
|
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
|
|
Не знаю, насколько это верно, так как сам первый раз попробовал, но вот такой код работает:
Код:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, GifImg, ExtCtrls;
type
TForm30 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
Gif: TGifImage;
public
{ Public declarations }
end;
var
Form30: TForm30;
implementation
{$R *.dfm}
procedure TForm30.FormCreate(Sender: TObject);
begin
Gif := TGifImage.Create;
Gif.LoadFromFile('C:\Xom04.gif');
Gif.Animate := True;
Gif.AnimateLoop := glEnabled;
end;
procedure TForm30.Timer1Timer(Sender: TObject);
begin
Image1.Picture.Assign(Gif);
end;
end.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
|