Все объекты в Delphi предоставляют четыре атрибута: верх, левая, высота и ширина для управления положением и размером объекта;
Дуга ⒗ занавес
Проповедь завеса медленно отображает экран с середины к обеим сторонам. Здесь установите свойство центра DBIMAGE1 TRUE; Установите свойство ширины на 0 и установите значение левого, чтобы оно появилось в середине экрана. Основным методом реализации анимации является изменение левого атрибута (значение постепенно становится меньше) и атрибут ширины (значение постепенно становится больше). Значение изменения ширины должно быть левым изменением. Введите следующее заявление в мероприятие Dimeer1: Dimeer1:
if (dbimage1.left> 0) тогда
Начинать
dbimage1.left: = dbimage1.left-1;
dbimage1.width: = dbimage1.width+2;
// Значение изменения dbimage1.width должна быть в 2 раза больше значения изменения dbimage1.left
конец
еще
timer1.enabled: = false; // взять конец.
Измените оставшееся в вышеупомянутой программе на верхнюю и ширину на высоту, чтобы достичь вертикальной занавески. Если эффект вытягивания занавеса применяется к объекту типа текста, изображение очень хорошее.
, аккордеон
В анимации глазного шифя, когда отображается весь экран, экран медленно блокируется с обеих сторон до середины, и он продолжает ездить на велосипеде, например, игра в аккордеон. При реализации необходимо добавить переменное состояние, чтобы указать состояние в настоящее время. Конкретные процедуры следующие:
Процедура tform1.timer1timer (отправитель: tobject);
Начинать
Если состояние = 1 тогда
if (dbimage1.left> 0) тогда
Начинать
dbimage1.left: = dbimage1.left-1
dbimage1.width: = dbimage1.width+2
конец
еще
// Когда экран полностью открыт, измените переменную состояния
состояние: = 2
else // тянуть с обеих сторон к середине
Если dbimage1.left <form1.width div 2 то тогда
Начинать
dbimage1.left: = dbimage1.left+1;
dbimage1.width: = dbimage1.width-2;
конец
еще
// Когда экран закрывается, измените переменную состояния
состояние: = 1;
конец;
, тип забора
Поверхность изначально блокируется вертикальными заборами, а затем заборы постепенно узкие, и картина, разделенная на заборы, постепенно становится завершенной. В этой анимации роль забора действует как объект типа статического текста (на экране отображается несколько заборов и требует нескольких объектов статического текста). Просто измените свойства левой и ширины объекта типа Staticext (влево постепенно становится больше, а ширина постепенно становится меньше).
Если ST1.width> 0, то // ST1 является объектом типа stactictext
Начинать
ST1.Width: = ST1.Width-2;
ST1.left: = ST1.LEFT+1;
конец
еще
// бежать снова
Начинать
ST1.width: = 40;
ST1.left: = 40;
конец;
Расположите заборы над горизонтали, измените слева до вершины и ширину на высоту, что станет следствием окна на сто страниц.
G⒎ Page
Эффект возобновления перехода на самом деле состоит в том, чтобы исправить верхнее значение, изменить значение высоты и установить значение растяжения на TRUE. Введите следующую программу в мероприятии Timer1, чтобы повернуть страницы:
Если dbimage1.height> 0, то
dbimage1.height: = dbimage1.height-4
Значение атрибута высоты янксиапингового механизма изменяется от малого на большие, так что эффект поворота страниц вниз достигается. Если вы измените верхнюю часть слева и высоту на ширину, вы достигнете эффекта поворота страниц влево и вправо. Если в то же время изменяются, изображение может быть повернута с вертикальной линией, проходящей через картинку в качестве оси.
Процедура tform1.timer1timer (отправитель: tobject);
Начинать
Если состояние = 1
Затем
Если dbimage1.width> 0, тогда
Начинать
// изображение постепенно становится меньше
dbimage1.left: = dbimage1.left+1;
dbimage1.width: = dbimage1.width-2;
// значение изменения ширины должно быть вдвое больше значения изменения левого
конец
еще
состояние: = 2
еще
Если dbimage1.width <250, то
Начинать
dbimage1.left: = dbimage1.left-1;
dbimage1.width: = dbimage1.width+2;
конец
еще
состояние: = 1
конец;
Из приведенной выше программы мы видим, что это сделает картину меньше, а затем постепенно становиться все больше Два состояния появляются поочередно.
⒋ Постепенно движется (летает) через лицо
Влияние того, что заголовок пролетел через картинку, часто необходим. Чтобы реализовать этот тип анимации, вам нужно только изменить топ заголовка (полет по вертикали) или левый атрибут (летающий по горизонтали).
Если вы осознаете название, летящее слева направо на картине. Сначала создайте графический объект dbimage1 и текстовый объект StaticText1 в Form1 (обратите внимание, что объекты типа текста не могут быть отображены на изображении), установите положение и размер, а затем создайте время объекта времени1 в Form1, установите его свойство для установки TrueInterval свойство до 10;
Процедура tform1.timer1timer (отправитель: tobject);
Если StaticText1.left <dbimage1.width+dbimage1.left then
StaticText1..left: = staticText1.left+3
еще
staticText1.left: = dbimage1.left;
// Когда заголовок вылетает из картинки, заставьте заголовок переехать слева от картинки и снова введите экран слева направо
конец;
Получите птицу
1. Если вы хотите переместить заголовок слева направо только один раз, измените оператор ELSE на Timer1.Enabled: = false;
2. Значение 3 - это значение скорости движения заголовка и может быть изменено по желанию;
3. Если заголовок перемещается в определенную позицию на картинке, измените «staticText1.left <dbimage1.width+dbimage1.left» на «staticText1.left <значение позиции» и измените оператор ELS на Timer1.Enablet: = = = = = = = = = = = = = = = = = = = = = ЛОЖЬ;
4. Просто измените значение слева от большого на маленькое, а затем летите справа налево;
5. Измените левое вверх на верхнюю и ширину на высоту, чтобы достичь вертикальной анимации.