Delphi的动画制作技巧

Delphi中所有对象都提供了Top、Left、Height、Width四个属性，用以控制对象的位置和大小；另外在Delphi中还提供了一个Time的构件，利用它们可以方便地实现一些动画。

弧⒗幕

幕式即从中间往两边慢慢显示画面。在此把dbimage1的center属性设成true；把stretch属性设成false。把Width属性设成0，适当设置Left的值，使其显示在屏幕中间。实现动画主要方法是修改Left属性(值逐渐变小)和Width属性(值逐渐变大)，要注意的是为了让幕布从中间均匀地向两边拉开，Width的改变值必须是Left改变值的2倍。在Dimeer1的OnTime事件中输入如下语句：

if (dbimage1.left>0) then

begin

dbimage1.left:=dbimage1.left-1;

dbimage1.width:=dbimage1.width+2;

//dbimage1.width的改变值必须是dbimage1.left改变值的2倍

end

else

timer1.enabled:=false;//拉幕结束。

把上面程序中的Left改为Top，Width改为Height就可以实现竖直方向的拉幕。如果把拉幕这种效果运用于文本类型的对象涂梢允迪忠恍幸恍械叵允疚谋镜男Ч。

、手风琴

诶幕式的动画中，当画面整个显示后，再把画面从两边往中间慢慢遮住，如此不断循环，像拉手风琴一样。实现时，需加入一个变量State，用以表明此时的状态。具体程序如下：

procedure TForm1.Timer1Timer(Sender:TObject);

begin

if state=1 then

if (dbimage1.left>0) then

begin

dbimage1.left:=dbimage1.left-1

dbimage1.width:=dbimage1.width+2

end

else

//当幕完全拉开后，改变状态变量

state:=2

else   //从两边往中间拉

if dbimage1.left<form1.width div 2 then

begin

dbimage1.left:=dbimage1.left+1;

dbimage1.width:=dbimage1.width-2;

end

else

//当幕合上后，改变状态变量

state:=1;

end;

、栅栏式

面初始被竖直栅栏遮住，然后各条栅栏逐渐变窄，被栅栏分割的画面逐渐完整起来。在这种动画中，栅栏的角色由STATICTEXT类型的对象来充当(画面呈现几条栅栏就需要几个STATICTEXT对象)。只需改变STATICTEXT类型对象的Left和Width属性即可(Left逐渐变大，Width逐渐变小)，在Timer1的onClick事件上，每一个STATICTEXT对象作如下处理：

if st1.width>0 then //ST1是STACTICTEXT类型的一个对象

begin

st1.width:=st1.width-2;

st1.left:=st1.left+1;

end

else

//再一次循环

begin

st1.width:=40; //Width和Left由实际情况决定

st1.left:=40;

end;

绻把上面的栅栏水平排列，把Left改成Top，把Width改成Height，则成为百页窗的效果，大家有兴趣的话可以试试。

摹⒎页

馐且恢中转的效果，实际上是把Top的值固定，改变Height的值，并把Stretch的值设为True。在Timer1的OnTime事件中键入以下程序可以实现向上翻页：

if dbimage1.height>0 then

dbimage1.height:=dbimage1.height-4

舭焉厦娉绦蛑械Height的属性值从小变到大，则实现向下翻页的效果。若把Top改成Left，把Height改成Width，则实现左右翻页的效果。如果把Left和Width一起同时改变，则可以使图片以某一条通过图片的竖直线为轴进行旋转，在Timer1的OnTimeR事件中，程序如下：

procedure TForm1.Timer1Timer(Sender:TObject);

begin

if state=1

then

if dbimage1.width>0 then

begin

//画面逐渐变小

dbimage1.left:=dbimage1.left+1;

dbimage1.width:=dbimage1.width-2;

//width的改变值必须是left改变值的两倍

end

else

state:=2

else

if dbimage1.width<250 then

begin

dbimage1.left:=dbimage1.left-1;

dbimage1.width:=dbimage1.width+2;

end

else

state:=1

end;

从以上程序可以看出，这是把画面变小后再慢慢变大，变小是一个状态(State=1)，变窄是另一个状态(State=2)，这两种状态交替出现，即可出现动画。

濉⒋踊面外逐渐移（飞）过

谏杓品饷娴氖焙颍经常需要让标题从画面上飞过的效果。 要实现这种类型的动画实际上只需改变标题的Top(垂直方向飞过)或Left属性(水平方向飞过)。

如实现一个标题在一幅画上从左往右飞过。先在Form1里建立一个图形对象Dbimage1和文字对象Statictext1(注意TEXT类型的对象无法显示在图片上)，把位置和大小尺寸设好，然后在Form1里建立一个Time对象Time1，把其Enabled属性设为TrueInterval属性设为10；并在事件OnTime里键入如下语句：

procedure TForm1.Timer1Timer(Sender:TObject);begin

if statictext1.left<dbimage1.width+dbimage1.left then

statictext1..left:=statictext1.left+3

else

statictext1.left:=dbimage1.left;

//当标题飞出图片后，使标题重新位于图片的左边，再一次从左向右入屏幕

end;

得鳎

1.如果只想使标题从左向右移动一次，Else语句改为Timer1.enabled:=false；

2. 数值3是标题移动的速度值，可以随意更改；

3. 若标题只移到图片的某一位置，则把“statictext1.left<dbimage1.width+dbimage1.left”改为“statictext1.left<位置值”，并把Else语句改为Timer1.enabled:=false；

4. 只需把Left的值从大变到小，则实现从右往左飞过；

5. 把上面的Left改为Top，把Width改为Height，即可实现垂直方向的动画。