动漫设计与制作 Delphi中动画设计[1]

Delphi中动画设计[1]  

    Delphi是Borland公司推出的面向对象的开发工具 用它可以快速地创建Windows应用程序 它拥有快捷的编译器 并提供了丰富的构件集 强大的代码自动生成功能和丰富的数据库管理工具等 下面就作者的经验 谈谈利用Delphi设计动画的一些技巧 并提供完整的示例程序

　　Timage构件变换法利用多个Timage构件在同一位置显示图像 而每个Timage构件装入的图像又各不相同 连续显示的效果可以形成动态感 下面以本公司徽标为例 介绍在封面制作中徽标的动作 在封面窗体(TQD_start) 中放入 个(其数目可根据实际情况确定)Timage图像构件和 个time 时钟构件 其中第一个Timage构件的VISIBLE的属性置为False 其他T image构件的VISIBLE属性均设置为True;Timer构件的INTERVAL值可根据要求的动作频率来确定 本例定为

　　Delphi中的Timage构件装入的图形文件格式一般为bmp ico em f wmf等 改变图像时可选用支持上述格式的图形软件 例如 首先将徽标存入文件LS BMP 利用PHOTOSHOP软件的ImageSize(PixelDimensions)来逐步改变图形的大小 分别按LS LS LS BMP文件名存盘 值得注意的是 图形的背景应和封面背景颜色保持一致 并且不留边框痕迹 图 ls ls ls bmp 双击Ttimer构件的ONTIMER事件的处理程序如下:

　　procedure TQD_start Timer Timer(Sender:TObject);

　　CONST i:integer= ;

　　begin

　　case i of

　　 :image picture:=image picture;

　　 :image picture:=image picture;

　　 :image picture:=image picture;

　　 :image picture:=image picture;

　　 :image picture:=image picture;

　　 :image picture:=image picture;

　　 :image picture:=image picture;

　　 :image picture:=image picture;

　　 :image picture:=image picture;

　　 :image picture:=image picture;

     :begin lishixinzhi/Article/program/Delphi/201311/11124