Delphi中动画设计[1]

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

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

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

　　procedure TQD_start.Timer1Timer(Sender:TObject);

　　CONST i:integer=2;

　　begin

　　case i of

　　2:image1.picture:=image4.picture;

　　3:image1.picture:=image5.picture;

　　4:image1.picture:=image6.picture;

　　5:image1.picture:=image7.picture;

　　6:image1.picture:=image8.picture;

　　7:image1.picture:=image9.picture;

　　8:image1.picture:=image10.picture;

　　9:image1.picture:=image11.picture;

　　10:image1.picture:=image12.picture;

　　11:image1.picture:=image13.picture;

    12:begin

[1]  [2]  [3]