Embarcadero Delphi
Usando animaciones en firemonkey

Trectangle giratorio

1. Crear en blanco la aplicación Multi-Device (Firemonkey).
2. Drop Rectangle on Form.
3. En la ventana del inspector de objetos (F11), encuentre el botón desplegable de RotationAngle y seleccione "Crear nuevo TFloatAnimation".
4. La ventana del inspector de objetos se cambia automáticamente a un nuevo TFloatAnimation, también puede verlo en el menú Estructura (Mayús + Alt).
   • F11).
5. En el inspector de objetos de TFloatAnimation, complete la duración con cualquier número (en segundos). En nuestro caso, tomemos 1. Deje la propiedad StartValue como está, y en el tipo StopValue - 360 (grados, por lo que todo gira). También permite activar la opción Loop (esta animación de bucles hasta que la detenga desde el código).

Ahora tenemos nuestra animación configurada. Todo lo que queda es encenderlo: soltar dos botones en el formulario, llamar primero "Inicio", segundo - "Detener". en el evento OnClick del primer botón escribe:

FloatAnimation1.Start;

OnClick del segundo código del botón:

FloatAnimation1.Stop;

Si cambió el nombre de su TFloatAnimation: cámbielo también cuando llame a Iniciar y Detener.

Ahora ejecute su proyecto, haga clic en el botón Inicio y disfrute.