知识大全 DELPHI中利用对象的常用属性制作动画

Posted 2022-07-13 属性

篇首语：别裁伪体亲风雅，转益多师是汝师。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 DELPHI中利用对象的常用属性制作动画相关的知识，希望对你有一定的参考价值。

DELPHI中利用对象的常用属性制作动画 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

　　一．拉幕

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

if (dbimage left > ) then begin dbimage left:=dbimage left ; dbimage width:=DBImage width+ ; //dbimage width的改变值必须是dbimage left改变值的倍 end else timer enabled:=false;//拉幕结束　　把上面程序中的LEFT改为TOP WIDTH改为HEIGHT就可以实现竖直方向的拉幕如果把拉幕这种效果运用于文本类型的对象就可以实现一行一行地显示文本的效果

　　二．手风琴

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

procedure TForm Timer Timer(Sender: TObject);begin if state= then if (dbimage left > ) then begin dbimage left:=dbimage left ; dbimage width:=DBImage width+ ; end else //当幕完全拉开后改变状态变量 state:= else //从两边往中间拉 if dbimage left< form width div then begin dbimage left:=dbimage left+ ; dbimage width:=dbimage width ; end else //当幕合上后改变状态变量 state:= ;end;　　三．栅栏式

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

if st width > then //ST 是STACTICTEXT类型的一个对象 begin st width:=st width ; st left:=st left+ ; end else //再一次循环 begin st width:= ; //WIDTH和LEFT由实际情况决定 st left:= ; end; 　　如果把上面的栅栏水平排列把LEFT改成TOP 把WIDTH改成HEIGHT 则成为百页窗的效果大家有兴趣的话可以试试

　　四．翻页

　　这是一种旋转的效果实际上是把TOP的值固定改变HEIGHT的值并把STRETCH的值设为TRUE 在TIMER 的ONTIME事件中键入以下程序可以实现向上翻页

if dbimage height > then dbimage height:=dbimage height 　　若把上面程序中的HEIGHT的属性值从小变到大则实现向下翻页的效果若把TOP改成LEFT 把HEIGHT改成WIDTH 则实现左右翻页的效果如果把LEFT和WIDTH一起同时改变则可以使图片以的某一条通过图片的竖直线为轴进行旋转在TIMER 的ONTIMER事件中程序如下

procedure TForm Timer Timer(Sender: TObject);begin if state= then if dbimage width > then begin //画面逐渐变小 dbimage left:=dbimage left+ ; dbimage width:=dbimage width ; //width的改变值必须是left改变值的两倍 end else state:= else if dbimage width< then begin dbimage left:=dbimage left ; dbimage width:=dbimage width+ ; end else state:=

end;　　从以上程序可以看出这是把画面变小后再慢慢变大变小是一个状态（STATE= ）变在是另一个状态（STATE= ）这两种状态交替出现即可出现动画

　　五．从画面外逐渐移(飞)过

　　在设计封面的时候经常需要把某标题从某个画面上飞过要实现该类型的动画实际上只需改变标题的TOP（垂直方向飞过）或LEFT属性（水平方向飞过）

　　例如实现一个标题在一幅画上从左往右飞过先在FORM 里建立一个图形对象DBIMAGE 和文字对象STATICTEXT （注意TEXT类型的对象无法显示在图片上）把位置和大小大小尺寸设好然后在FORM 里建立一个TIME对象TIME 把其ENABLED属性设为TRUE INTERVAL属性设为并在事件ONTIME里键入如下语句

procedure TForm Timer Timer(Sender: TObject);begin if statictext left< dbimage width+dbimage left then statictext left:=statictext left+ else statictext left:=dbimage left; //当标题飞出图片后使标题重新位于图片的左边再一次从左向右入屏幕end;　　说明如果只想使标题从左向右移动一次 ELSE语句改为Timer enabled:=false; 数值是标题移动的速度值可以随意更改若标题只移到图片的某一位置则把 statictext left< dbimage width+dbimage left 改为 statictext left< 位置值并把ELSE语句改为Timer enabled:=false; 只需把LEFT的值从大变到小则实现从右往左飞过把上面的LEFT改为TOP 把WIDTH改为HEIGHT 即可实现垂直方向的动画　　六．逐渐显示（即把图片从某一个边界逐渐拉出来）

　　实现这一类型的动画不但要改变TOP LEFT属性还要改变HEIGHT和WIDTH属性例把一幅画从右边往左边拉（右切入）在上例中以DBIMAGE 为例这时要把Dbimage 的center和stretch属性设为FALSE 图片的左边界放在FORM 的右边界处 WIDTH设为

cha138/Article/program/Delphi/201311/25078