Tous les objets de Delphi fournissent quatre attributs: haut, gauche, hauteur et largeur pour contrôler la position et la taille de l'objet;
Arc ⒗ rideau
Le sermon de rideau affiche lentement l'écran du milieu aux deux côtés. Ici, définissez la propriété centrale de Dbimage1 sur True; définissez la propriété Stretch sur FALSE. Définissez la propriété Largeur sur 0 et définissez la valeur de gauche de manière appropriée pour la faire apparaître au milieu de l'écran. La méthode principale pour implémenter l'animation est de modifier l'attribut gauche (la valeur devient progressivement plus petite) et l'attribut de largeur (la valeur devient progressivement plus grande). La valeur de changement de largeur doit être la valeur de changement gauche. Entrez la déclaration suivante dans l'événement sur le temps de Dimeer1:
if (dbimage1.left> 0) alors
Commencer
dbimage1.left: = dbimage1.left-1;
dbimage1.width: = dbimage1.width + 2;
// La valeur de modification de Dbimage1.Width doit être 2 fois la valeur de changement de dbimage1.left
fin
autre
timer1.enabled: = false; // prendre fin.
Changement laissé dans le programme ci-dessus en haut et largeur à la hauteur pour obtenir un tir de rideau vertical. Si l'effet du tir du rideau est appliqué à l'objet de type de texte, l'image est très bonne.
,accordéon
Dans l'animation de l'oeil-shijing, lorsque l'écran entier s'affiche, l'écran est lentement bloqué des deux côtés au milieu, et il continue de faire du vélo, comme jouer un accordéon. Lors de la mise en œuvre, un état variable doit être ajouté pour indiquer l'état pour le moment. Les procédures spécifiques sont les suivantes:
Procédure TForm1.Timer1Timer (expéditeur: TOBject);
Commencer
Si l'état = 1 alors
if (dbimage1.left> 0) alors
Commencer
dbimage1.left: = dbimage1.left-1
dbimage1.width: = dbimage1.width + 2
fin
autre
// Lorsque l'écran est complètement ouvert, modifiez la variable d'état
État: = 2
else // tire des deux côtés au milieu
Si dbimage1.left <form1.width div 2 alors
Commencer
dbimage1.left: = dbimage1.left + 1;
dbimage1.width: = dbimage1.width-2;
fin
autre
// Lorsque l'écran se ferme, modifiez la variable d'état
État: = 1;
fin;
, Type de clôture
La surface est initialement bloquée par des clôtures verticales, puis les clôtures sont progressivement étroites, et l'image divisée par les clôtures devient progressivement complète. Dans cette animation, le rôle de la clôture est agi comme un objet du type statistXext (l'écran affiche plusieurs clôtures et nécessite plusieurs objets StaticText). Changez simplement les propriétés de gauche et de la largeur de l'objet de type statisTExt (la gauche devient progressive et la largeur devient progressivement plus petite).
Si ST1.Width> 0 alors // ST1 est un objet de type stactictExt
Commencer
ST1.Width: = ST1.Width-2;
st1.left: = st1.left + 1;
fin
autre
// Courez à nouveau
Commencer
ST1.Width: = 40;
st1.left: = 40;
fin;
Organisez les clôtures au-dessus de l'horizontale, changez de haut en haut et largeur à la hauteur, ce qui deviendra l'effet d'une fenêtre de cent pages.
Page G⒎
L'effet de la reprise de la transition est en fait de corriger la valeur supérieure, de modifier la valeur de hauteur et de définir la valeur d'étirement sur true. Tapez le programme suivant dans l'événement de temps sur TIMER1 pour augmenter les pages:
Si dbimage1.height> 0 alors
dbimage1.height: = dbimage1.height-4
La valeur d'attribut de la hauteur des machines de Yanxiaping passe de petite à grande, de sorte que l'effet de la baisse des pages vers le bas. Si vous modifiez le haut en gauche et la hauteur à la largeur, vous obtiendrez l'effet de tourner les pages à gauche et à droite. Si la gauche et la largeur sont modifiées en même temps, l'image peut être tournée avec une ligne verticale passant par l'image comme l'axe.
Procédure TForm1.Timer1Timer (expéditeur: TOBject);
Commencer
Si l'état = 1
Alors
Si dbimage1.width> 0 alors
Commencer
// L'image devient progressivement plus petite
dbimage1.left: = dbimage1.left + 1;
dbimage1.width: = dbimage1.width-2;
// La valeur de modification de la largeur doit être le double de la valeur de changement de gauche
fin
autre
État: = 2
autre
Si dbimage1.width <250 alors
Commencer
dbimage1.left: = dbimage1.left-1;
dbimage1.width: = dbimage1.width + 2;
fin
autre
État: = 1
fin;
D'après le programme ci-dessus, nous pouvons voir que cela est de rendre l'image plus petite et de grandir progressivement. Deux états apparaissent alternativement.
⒋Ping se déplace progressivement (voler) sur le visage
L'effet de laisser le titre voler sur l'image est souvent nécessaire. Pour implémenter ce type d'animation, il vous suffit de modifier le haut du titre (volant verticalement) ou l'attribut gauche (volant horizontalement).
Si vous réalisez un titre volant de gauche à droite sur une peinture. Créez d'abord un objet graphique dbimage1 et un objet texte stmitText1 dans Form1 (notez que les objets de type de texte ne peuvent pas être affichés sur l'image), définissez la position et la taille, puis créez un temps d'objet Time1 dans Form1, définissez sa propriété activée pour définir TrueInterval propriété à 10; et tapez l'énoncé suivant dans l'événement.
Procédure TForm1.Timer1Timer (expéditeur: Tobject);
si staticText1.left <dbimage1.width + dbimage1.left alors
staticText1..left: = staticText1.left + 3
autre
staticText1.left: = dbimage1.left;
// Lorsque le titre vole de l'image, faites déménager le titre à gauche de l'image et entrez à nouveau l'écran de gauche à droite
fin;
Prendre un oiseau
1. Si vous souhaitez déplacer le titre de gauche à droite une seule fois, modifiez l'instruction ELSE en TIMER1.Enabled: = false;
2. La valeur 3 est la valeur de vitesse du mouvement du titre et peut être modifiée à volonté;
3. Si le titre est déplacé vers une certaine position dans l'image, modifiez "staticText1.left <dbimage1.width + dbimage1.left" à "staticText1.left <Valeur de position", et modifiez l'instruction ELSE en timer1.enabled: = = FAUX;
4. Changez simplement la valeur de gauche de grande à petite, puis volez de droite à gauche;
5. Changez la gauche ci-dessus en haut et largeur en hauteur pour atteindre l'animation verticale.