Вот переписал так
procedure TForm1.Timer1Timer(Sender: TObject);
var
dt, vx, vy, n: integer;
begin
vx:=5;
vy:=5;
dt:=20;
timer1.Interval:=dt;
shape1.Left:=round(shape1.Left+n*0.01*dt*vx);
shape1.top:=round(shape1.top+n*0.01*dt*vy);
if shape1.Left=790 or 10
then
begin
n:=-1;
end
else
n:=1;
if shape1.top=590 or 10
then
begin
n:=-1
end
else
n:=1;
end;
если не писать условия, то фигура плавно двигается, но вот условие заставляющее её отскакивать от стенок не работает(((
Размер поля - 800*600, диаметр круглой фигуры - 20 пикс, помогите, почему не ферычит??
|