Анимация

[SanekIrk]

Привет. Мне надо создать анимацию путем быстрой сменой картинок, например в формате JPG. Как это можно реализовать? За ранее спасибо.

[Карась]

Обычно используют TTimer.

[SanekIrk]

Это понятно что TTimer, а как мне всё это показать на форме?

[Карась]

Ну например както так:

I := I + 1;
Case I of
     1 : 1 кадр;
     2 : 2 кадр;
     3 : 3 кадр;
     .........
     666 : 666 кадр; 
End;
If I = 666 Then I := 0;

[SanekIrk]

Хм... как я раньше не догадался. Спасибо что помог.

[SanekIrk]

Не а если серьездно у меня 666 кадров, это же будет очень большой исходник. есть другие способы?

[Карась]

Вариантов куча и все соображаются в зависимсти от ситуации.

Var Massiv : Array [1..666] of Sting;
......
I := I + 1;   
Image1.LoadЧтоТоТам(Massiv[i]);    
If I = 666 Then I := 0;

ЗЫ: Масси наверное лучше заполнять из файла...... Но если изображениям задать определёные именна, то и массив непонадобиться....

I := I + 1;   
Image1.LoadЧтоТоТам('Путь' + I + '.bmp');    
If I = 666 Then I := 0;

[SanekIrk]

Только что сам испробовал вот такое:
procedure TForm1.Timer1Timer(Sender: TObject);
var n:Integer;
begin
n := n+1;
image1.Picture.LoadFromFile(IntToSt r(n)+'.bmp');
end;
Всё ровно.

[Карась]

Всё ровно.

И что произошло?
Надо удостовериться что файлы на месте и пути к ним указанны правильно. Хотя компилятор это сообщит сам когда несможет найти изображение.

Также надо убедиться что таймер работает и на вкладке евентс(вродебы, точно сказать немогу т.к. играю в редалерт и запусать Делфи геморно)....

адд[забыл сообщение дописать )))]: ... и на вкладке евентс проверить указанно ли событие.

[SanekIrk]

Сообщение от Карась

И что произошло?
Надо удостовериться что файлы на месте и пути к ним указанны правильно. Хотя компилятор это сообщит сам когда несможет найти изображение.

Также надо убедиться что таймер работает и на вкладке евентс(вродебы, точно сказать немогу т.к. играю в редалерт и запусать Делфи геморно)....

Я имел ввиду сам прошарил тот исходник и всё работает.