Delphi中动画设计[1]

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

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

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

procedure TQD_startTimerTimer(Sender:TObject);

CONST i:integer=;

begin

case i of

:imagepicture:=imagepicture;

:imagepicture:=imagepicture;

:imagepicture:=imagepicture;

:imagepicture:=imagepicture;

:imagepicture:=imagepicture;

:imagepicture:=imagepicture;

:imagepicture:=imagepicture;

:imagepicture:=imagepicture;

:imagepicture:=imagepicture;

:imagepicture:=imagepicture;

:begin

[] [] []