Анімація - це рух або видозміна об'єкта на екрані.
За допомогою компонента Timer можна реалізувати повторення команд через заданий інтервал часу.
Знаходиться цей компонент на Панелі компонентів у вкладці System і має вигляд секундоміра.
Основні властивості компонента Timer:
Enabled - властивість, що має значення (True/False) і означає працює таймер чи ні
Interval - властивість яка визначає проміжок часу у мілісекундах (1секунда=1000мілісекунд)
OnTimer - головна подія, яка визначає роботу таймера і містить команди, що будуть повторюватись через визначений (властивість Interval) інтервал часу.
Робочий аркуш уроку:
Практичне завдання
Розробити проект з анімацією: червоний м'яч переміщається вгору-вниз
Алгоритм виконання
Запустити Lazarus
Створити новий проект
Додати на форму елемент Shape1
Через Інспектор об'єктів змінити його форму на коло - властивість Share, значення - StCircle
Задати колір заливки
Вставити на форму компонент таймер - з.System/ компонент Timer
У Інспекторі об'єктів виставити для властивісті Inteval значення 10.
Алгоритм написання тексту програми:
Двічі клікнути на таймері
Написати наступний код програми:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if up=true then shape1.Top:=shape1.Top-5
else shape1.Top:=shape1.Top+5;
if shape1.Top<=0 then up:=false;
if shape1.Top+shape1.height>=form1.Height then up:=true;
end;
3. У розділі var оголошенні глобальних змінних додати змінну:
var up:boolean;