Анимация.

[Cause]

Могли бы вы выложить программный код для Delphi, анимацию двух квадратиков, чтобы по кругу двигались, может и сталкивались.
Заранее спасибо.

[DeKot]

Создаете процедуру рисования квадрата:

  // глобально
var x1,y1: real;  // координаты левого верхнего угла квадрата

procedure SqwearCreate(_color: integer);  // _color - цвет пера
begin
  Form1.Canvas.Pen.Color:= _color;
  Form1.Canvas.Rectangle (x1,y1,x1+50,y1+50); // рисует квадрат 50 х 50
end;

В OnCreate формы задаем начальные координаты - x1:= 100; y1:= 100;
Вводим таймер (интервал, к примеру = 100) и в обработчике OnTimer используем процедуру рисования:

begin
    SqwearCreate(clRed); // рисуем квадрат красным цветом
    Sleep(50); // вводим задержку, чтоб зафиксировать изображение
    SqwearCreate(clBtnFace); // там же рисуем тот же квадрат, но цвет пера = цвету  фона (фактически стираем изображение)
   x1:= x1 + 15; y1:= y1+10; // изменяем координаты линейно
  // в следующем цикле таймера все повторится, только в других координатах (в другом месте) 
end;

Для движения по кругу изменяйте координаты x1 и y1 с применением функций sin и cos.
Для второго квадрата используйте аналогично свои координаты x2 и y2.

[Cause]

Чё та не очень понел, можеш выложить код плз, сам уже рабочий

Там тока с винграфом

[DeKot]

можеш выложить код

Могу, конечно, а оно тебе надо? Ведь суть этого форума не раздача кодов налево-направо, а помочь постичь тайны программирования (во как звучит высокопарно, но факт).
Дана основа алгоритма, указано направление куда двигаться, че тебе "хороняка надо еще". Пока сам не начнешь что либо делать, кина не будет.

[Cause]

ДА еу тебя....уже сам сделал,а просил чтобы посмотреть, как правильно сделать

[DeKot]

ДА еу тебя....

В одном старом хорошем мультике было сказано - делай добро и бросай его в реку и оно (добро) обязательно к тебе вернется.
А это (я имею ввиду цитату) признак бессилия (ну и пошлости , конечно).
Бог Вам Судья.

[Cause]

Ладно...сори...