Embarcadero Delphi
Использование анимаций в Firemonkey

Вращающийся треугольник

1. Создайте пустое приложение Multi-Device (Firemonkey).
2. Drop Прямоугольник на форме.
3. В окне Инспектор объектов (F11) найдите RotationAngle, нажмите кнопку выпадающего списка и выберите «Создать новую TFloatAnimation».
4. Окно инспектора объектов автоматически переключается на недавно добавленную TFloatAnimation, вы также можете просмотреть его в меню «Структура» (Shift + Alt
   • F11).
5. В инспекторе объектов TFloatAnimation заполняется длительность с любым числом (в секундах). В нашем случае давайте возьмем 1. Оставьте свойство StartValue как есть, а в типе StopValue - 360 (градусы, так что все идет кругом). Также включите опцию Loop (эта петля анимации, пока вы не остановите ее из кода).

Теперь у нас есть анимация. Осталось только включить его: сбросить две кнопки по форме, сначала вызвать «Старт», второй - «Остановить». в событии OnClick первой кнопки пишите:

FloatAnimation1.Start;

OnClick второго кода кнопки:

FloatAnimation1.Stop;

Если вы изменили имя своего TFloatAnimation - также измените его при вызове «Пуск» и «Стоп».

Теперь запустите свой проект, нажмите кнопку «Пуск» и наслаждайтесь.