1. Для запуска анимации создайте обработчик события OnActivate, наступающего, когда форма получает или теряет фокус, например, при щелчке по ней мышью.
Чтобы создать обработчик события, выберите в окне Инспектора объектов объект Form1 и на странице События произведите двойной щелчок на пустом поле списка в событии OnActivate. После этого в окне Редактора кода будет сгенерирована заготовка процедуры обработчика события procedure TForm1.FormActivate (Sender: TObject);
2. Добавьте в раздел описания переменных переменные целого типа х и у — координаты центра окружности и dx — приращение координаты х при движении окружности.
var Form1: TForm1; x,у: byte; {координаты центра окружности}
dx: byte; {приращение координаты х при движении окружности}
3. Отредактируйте текст процедуры следующим образом:
procedure TForm1.FormActivate(Sender: TObject); begin x:=0; y:=30; {начальная позиция рисунка}
dx:=3; {шаг изменения координаты х}
Timer1.Interval:=50; {период возникновения события OnTimer - 0,5 сек} Form1.Canvas.Brush.Color:=Form1.Color; {цвет окраски канвы}
end;
4. Создайте процедуру обработчика события OnTimer, для чего выберите в окне Инспектора объектов объект Timer1 и на странице События произведите двойной щелчок на пустом поле списка в событии Timer1Timer. В тело процедуры добавьте вызов процедуры рисования Ris.
procedureTForm1.Timer1Timer(Sender: TObject); begin Ris; end;
5. Так как процедура должна быть описана до ее вызова, то выше этой процедуры в тексте программного модуля опишите процедуру рисования Ris:
