首页/技术开发/内容

DELPHI中运用对象的常用属性制作动画

技术开发2024-06-13 阅读()
林颖

     在DELPHI中的所有对象中都有提供了TOP、LEFT、HEIGHT、WIDTH四个属性,用以控制对象的位置和大小;另外在DELPHI中还提供了一个TIME的构件,利用他们可以方便地实现一些动画。

---- 一. 拉幕

---- 拉幕式即从中间往两边慢慢显示画面。在此把Dbimage1的CENTER属性设成true;把stretch属性设成false。把WIDTH属性设成0,适当设置LEFT的值,使其显示在屏幕中间。实现动画主要方法是修改LEFT属性(值逐渐变小)和WIDTH属性(值逐渐变大),要注意的是为了让幕布从中间均匀地向两边拉开,WIDTH的改变值必须是LEFT改变值的两倍。在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属性设为TRUE,INTERVAL属性设为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;
---- 说明:

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

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

若标题只移到图片的某一位置,则把“statictext1.left< dbimage1.width+dbimage1.left”改为“statictext1.left< 位置值”,并把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 >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 >0”中的0改为设定点的坐标,并把ELSE 语句改为 Timer1.enabled:=false;
---- 尽管DELPHI提供了不少关于动画方面的开发工具,但是只要稍稍修改一下属性即可轻轻松松地实现常见的一些特技显示,你愿意试一下吗?


……

相关阅读