Todos los objetos en Delphi proporcionan cuatro atributos: arriba, izquierda, altura y ancho para controlar la posición y el tamaño del objeto; Además, también se proporciona un componente de tiempo en Delphi, que puede implementar fácilmente algunas animaciones.
Arco ⒗ cortina
El sermón de la cortina muestra lentamente la pantalla de medio a ambos lados. Aquí, establezca la propiedad central de DBIMAGE1 en verdadera; Establezca la propiedad de ancho en 0 y establezca el valor de la izquierda adecuadamente para que aparezca en el medio de la pantalla. El método principal para implementar la animación es modificar el atributo izquierdo (el valor se vuelve gradualmente más pequeño) y el atributo de ancho (el valor se hace más grande). El valor de cambio de ancho debe ser el valor de cambio de izquierda. Ingrese la siguiente declaración en el evento en tiempo de Dimeer1:
if (dbimage1.left> 0) entonces
Comenzar
dbimage1.left: = dbimage1.left-1;
dbimage1.width: = dbimage1.width+2;
// El valor de cambio de dbimage1. ancho debe ser 2 veces el valor de cambio de dbimage1.left
fin
demás
Timer1.Enabled: = false; // Toma final.
Cambie la izquierda en el programa anterior a arriba y ancho a la altura para lograr el tirón de la cortina vertical. Si el efecto de tirar de la cortina se aplica al objeto Tipo de texto, la imagen es muy buena.
,acordeón
En la animación de los ojos, cuando se muestra toda la pantalla, la pantalla se bloquea lentamente desde ambos lados hasta el medio, y continúa en bicicleta, como jugar un acordeón. Al implementarse, se debe agregar un estado variable para indicar el estado en este momento. Los procedimientos específicos son los siguientes:
procedimiento tForm1.Timer1Timer (remitente: tobject);
Comenzar
Si State = 1 entonces
if (dbimage1.left> 0) entonces
Comenzar
dbimage1.left: = dbimage1.left-1
dbimage1.width: = dbimage1.width+2
fin
demás
// Cuando la pantalla se abre por completo, cambie la variable de estado
Estado: = 2
más // Tire de ambos lados al medio
Si dbimage1.left <form1.width div 2 entonces entonces
Comenzar
dbimage1.left: = dbimage1.left+1;
dbimage1.Width: = dBImage1.Width-2;
fin
demás
// Cuando se cierre la pantalla, cambie la variable de estado
estado: = 1;
fin;
, tipo de valla
La superficie es bloqueada inicialmente por cercas verticales, y luego las cercas se estrechan gradualmente, y la imagen dividida por las cercas se completa gradualmente. En esta animación, el papel de la cerca se actúa como un objeto del tipo de texto Staticte (la pantalla muestra varias cercas y requiere varios objetos de texto estatal). Simplemente cambie las propiedades de la izquierda y el ancho del objeto de tipo Estatuto (la izquierda se vuelve gradualmente más grande y el ancho se vuelve gradualmente más pequeño).
Si st1.width> 0 entonces // st1 es un objeto de tipo stACTICTEXT
Comenzar
st1.width: = st1.width-2;
st1.left: = st1.left+1;
fin
demás
// corre de nuevo
Comenzar
st1.Width: = 40; // El ancho y la izquierda están determinados por la situación real
st1.left: = 40;
fin;
Organice las cercas sobre horizontalmente, cambie de izquierda a arriba y ancho a altura, lo que se convertirá en el efecto de una ventana de cien páginas.
Página G⒎
El efecto de reanudar la transición es fijar el valor superior, cambiar el valor de altura y establecer el valor de estiramiento en verdadero. Escriba el siguiente programa en el evento en tiempo de Timer1 para aumentar las páginas:
Si dbimage1.Height> 0 entonces entonces
dbimage1.Height: = dBImage1.Height-4
El valor del atributo de la altura de la maquinaria de yanxia cambia de pequeña a grande, de modo que se logra el efecto de girar las páginas hacia abajo. Si cambia de arriba a izquierda y altura a ancho, logrará el efecto de girar las páginas a la izquierda y a la derecha. Si la izquierda y el ancho se cambian al mismo tiempo, la imagen se puede girar con una línea vertical que pasa a través de la imagen como el eje.
procedimiento tForm1.Timer1Timer (remitente: tobject);
Comenzar
Si estado = 1
Entonces
Si dbimage1.width> 0 entonces entonces
Comenzar
// La imagen se vuelve gradualmente más pequeña
dbimage1.left: = dbimage1.left+1;
dbimage1.Width: = dBImage1.Width-2;
// El valor de cambio del ancho debe ser el doble del valor de cambio de la izquierda
fin
demás
Estado: = 2
demás
Si dbimage1.Width <250 entonces
Comenzar
dbimage1.left: = dbimage1.left-1;
dbimage1.width: = dbimage1.width+2;
fin
demás
Estado: = 1
fin;
Desde el programa anterior, podemos ver que esto es para hacer que la imagen sea más pequeña y luego crecer gradualmente. Aparecerán dos estados alternativamente.
⒋Ping se mueve gradualmente (vuela) por la cara
A menudo se necesita el efecto de dejar que el título vuele a través de la imagen. Para implementar este tipo de animación, solo necesita cambiar la parte superior del título (volando verticalmente) o el atributo izquierdo (volando horizontalmente).
Si te das cuenta de un título que vuela de izquierda a derecha en una pintura. Primero cree un objeto gráfico DBIMage1 y un objeto de texto StaticText1 en Form1 (tenga en cuenta que los objetos de tipo de texto no se pueden mostrar en la imagen), configure la posición y el tamaño, y luego cree un tiempo de tiempo de tiempo1 en Form1, establezca su propiedad habilitada para establecer TrueInterval propiedad a 10;
procedimiento tForm1.Timer1Timer (remitente: tobject);
si staticticext1.left <dbimage1.width+dbimage1.left entonces
Statictext1..Ltft: = statictext1.left+3
demás
statictext1.left: = dbimage1.left;
// Cuando el título salga de la imagen, haga que el título se reubique a la izquierda de la imagen e ingrese la pantalla de izquierda a derecha nuevamente
fin;
Conseguir un pájaro
1. Si desea mover el título de izquierda a derecha solo una vez, cambie la instrucción delse a Timer1.enabled: = false;
2. El valor 3 es el valor de velocidad del movimiento del título y se puede cambiar a voluntad;
3. Si el título se mueve a una determinada posición en la imagen, cambie "Statictext1.left <dbimage1.width+dbimage1.left" a "statictext1.left <valor de posición", y cambie la instrucción else a timer1.Enabled: = = FALSO;
4. Simplemente cambie el valor de la izquierda de grande a pequeño, y luego vuele de derecha a izquierda;
5. Cambie la izquierda arriba a arriba y ancho a la altura para lograr la animación vertical.