Как создать простую анимацию.

@porrygatter2003 · Регистрация: 21.07.2010

Студворк — интернет-сервис помощи студентам

Пожалуйста, подскажите как создать простую анимацию. Нужно создать анимацию простого эллипса по горизонтали.
Всё что у меня получается, это только нарисовать окружность ((.

Delphi
1
2
3
4
5
 x:=100;x1:=200;
  for I := 1 to 100 do
    begin
       Canvas.Ellipse(x+1,100,x1+1,200);
    end;

@porrygatter2003 · 22.07.2010, 10:14 **[ТС]**

Спасибо, пойду разбираться.

@igoriy · 22.07.2010, 12:25

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
i,x:integer;
begin
  x:=Image1.Left;
for i:=1 to 300 do
  begin
    Image1.Left:=x;
    x:=x+1;
    Application.ProcessMessages;
    sleep(5);
  end;
end;

@porrygatter2003 · 23.07.2010, 10:40 **[ТС]**

Сообщение от igoriy

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
i,x:integer;
begin
  x:=Image1.Left;
for i:=1 to 300 do
  begin
    Image1.Left:=x;
    x:=x+1;
    Application.ProcessMessages;
    sleep(5);
  end;
end;

Спасибо, а может заодно подскажите, мне нужно написать простую игру. Например Летит Самолет сверху, а я в него стреляю из пушки. Самолеты Это несколько Image, которые перемещаются по горизонтали вправо/влево, а пушка, тоже Image, которая умеет ездить влево вправо, только в низу экрана. Такую игру я писал раньше на паскале. Для её создание получается что все события, движене, стрельба и т.д. должны быть в одном цикле и в одном обработчике событий, например по нажатию на кнопку. Можно ли в делфи это как то проще организовать???

Новые блоги и статьи Все статьи Все блоги /
Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .

@porrygatter2003 0 / 0 / 0 Регистрация: 21.07.2010 Сообщений: 10
	22.07.2010, 10:14 [ТС]
	Спасибо, пойду разбираться. 0