精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>OLE&Activex>>DELPHI中利用对象的常用属性制作动画

主题:DELPHI中利用对象的常用属性制作动画
发信人: 20775613(呆久了爱上我)
整理人: teleme(2004-01-02 16:22:03), 站内信件
P>在DELPHI中的所有对象中都有提供了TOP、LEFT、HEIGHT、WIDTH四个属性,用以控制对象的位置和大小;另外在DELPHI中还提供了一个TIME的构件,利用他们可以方便地实现一些动画。 
  一. 拉幕 

  拉幕式即从中间往两边慢慢显示画面。在此把Dbimage1的CENTER属性设成true;把stretch属性设成false。把WIDTH属性设成0,适当设置LEFT的值,使其显示在屏幕中间。实现动画主要方法是修改LEFT属性(值逐渐变小)和WIDTH属性(值逐渐变大),要注意的是为了让幕布从中间均匀地向两边拉开,WIDTH的改变值必须是LEFT改变值的两倍。在DIMEER1的ontime事件中输入如下语句: 

 if (dbimage1.left $#@62;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 $#@62;0) then
 begin
 dbimage1.left:=dbimage1.left-1;
 dbimage1.width:=DBImage1.width+2;
 end
 else
 //当幕完全拉开后,改变状态变量
 state:=2
 else
 //从两边往中间拉
 if dbimage1.left$#@60; 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 $#@62;0 then //ST1是STACTICTEXT类型的一个对象
 begin
 st1.width:=st1.widt   ;
 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 $#@62;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 $#@62;0 then
 begin
 //画面逐渐变小
 dbimage1.left:=dbimage1.left+1;
 dbimage1.width:=dbimage1.width-2;
 //width的改变值必须是left改变值的两倍
 end
 else
 state:=2
 else
 if dbimage1.width$#@60; 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属性设为TRUE,INTERVAL属性设为10;并在事件ONTIME里键入如下语句: 

 procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if statictext1.left$#@60; dbimage1.width+dbimage1.left then
 statictext1..left:=statictext1.left+3
 else
 statictext1.left:=dbimage1.left;
 //当标题飞出图片后,使标题重新位于图片的左边,
 再一次从左向右入屏幕
end;

  说明: 

如果只想使标题从左向右移动一次,ELSE语句改为Timer1.enabled:=false; 

数值3是标题移动的速度值,可以随意更改 

若标题只移到图片的某一位置,则把“statictext1.left$#@60; dbimage1.width+dbimage1.left”改为“statictext1.left$#@60; 位置值”,并把ELSE语句改为Timer1.enabled:=false; 

只需把LEFT的值从大变到小,则实现从右往左飞过 

把上面的LEFT改为TOP,把WIDTH改为HEIGHT,即可实现垂直方向的动画。 
  六. 逐渐显示(即把图片从某一个边界逐渐拉出来) 

  实现这一类型的动画不但要改变TOP、LEFT属性,还要改变HEIGHT和WIDTH属性。 例:把一幅画从右边往左边拉(右切入)。在上例中以DBIMAGE1为例。这时要把Dbimage1的center和stretch属性设为FALSE。图片的左边界放在FORM1的右边界处,WIDTH设为0。 

 procedure TForm1.timer1Timer(Sender: TObject);
begin
 if dbimage1.left $#@62;0then
 begin
 dbimage1.left:=dbimage1.left-3;
 dbimage1.width:=dbimage1.width+3;
//LEFT的改变值与WIDTH的改变值必须一样
 end
 else
 begin
 dbimage1.left:=form1.width;
 dbimage1.width:=0;
 end;
end;

  说明: 

把上面的LEFT改为TOP,WIDTH改为HEIGHT即可实现从下往上拉(下切入)。 

若只切入到某一点,可以把“Dbimage1.left $#@62;0”中的0改为设定点的坐标,并把ELSE 语句改为 Timer1.enabled:=false; 
  尽管DELPHI提供了不少关于动画方面的开发工具,但是只要稍稍修改一下属性即可轻轻松松地实现常见的一些特技显示,你愿意试一下吗? 
 







----
 阅读使人博学,辩论使人聪明,写作使人精明。           
 
  有咩事传纸仔给我呀!    
从现在开始,拨打110**电话,即能获得7天全免食宿的牢房之旅,并可获赠精美手铐一副,享受来回警车接送。每天前十名打入者,还将与警犬嬉戏。 
  好处多多,礼物丰富,赶快拨打哦! 
          

[关闭][返回]