Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 26.05.2010, 13:51   #1
Terrance!
Форумчанин
 
Регистрация: 12.05.2010
Сообщений: 66
Репутация: 18
По умолчанию проблема с анимацией

Нужно чтобы изображение менялось покадрово
Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
kadr:integer;
x:boolean;
begin
x:=false;
x:=(kadr<1)and (kadr>7);//ограничение количества кадров
kadr:=kadr+1;//чтобы картинки брались поочерёдно
Image2.Picture.Bitmap.LoadFromFile (IntToStr(kadr)+'.bmp');
if kadr:=7 then kadr := 1;
image2.Top:=image2.Top-2;
end;

Вылазит ошибка, что невозможно найти кадр№ 9322017.Как ограничить количество кадров, раз таким способом не получилось?
Terrance! вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с анимацией Манжосов Денис :) Gamedev - cоздание игр: Unity, OpenGL, DirectX 30 17.11.2009 21:57
Delphi 7 проблема с Анимацией Rus 47 Помощь студентам 1 26.05.2009 00:17
Помогите с анимацией проги! Aboltus Общие вопросы Delphi 3 29.07.2008 23:21
Задача с анимацией KpeHDeJIb Помощь студентам 1 04.07.2008 20:23
Помогите с анимацией в Паскале ЕвгениуS Помощь студентам 6 06.06.2008 15:10


18:24.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru