Timer1.Interval:=50; {период возникновения события
OnTimer - 0.5 сек}
Form1.Canvas.Brush.Color:=Form1.Color; {цвет окраски канвы} end;
end.
6. Сохраните текст приложения, откомпилируйте и проверьте его работу.
Окно приложения с мультипликацией
Дополнительные задания
Отредактируйте текст модуля таким образом, чтобы
изменить цвет и радиус окружности, направление движения окружности ;
осуществлялось движение двух окружностей.
Достарыңызбен бөлісу: |
