Delphi中动画设计[2]

imagepicture:=imagepicture;

i:=;

end;

end;

i=:i+

end;

end

不难看出本程序执行后徽标由大至小不断覆盖仿佛该徽标由远及近在运动请注意其运动轨迹是反复由大至小如果希望其运动效果是由远及近由近及远又由远及近周而复始可将程序作相应修改本文由于篇幅所限从略

如果希望将动作效果再改变一下按顺时针或反时针旋转可利用PHOTOSHOP软件的Rotate来逐步改变图形的转向然后重新装入Timage构件显然图形数量取得愈多则动画效果愈平滑可根据实际情况选定

数据库GRAPHICS字段变换法首先在Delphi下建立数据库(例如:QD_Tdb)其结构如下:表 数据库结构然后可利用PHOTOSHOP软件的Image Size或Rotate功能反复编辑图片按Ctrl+C拷贝;切换回Delphi选中Dbimage构件按Ctrl+v粘贴Dbimage构件的Stretch属性扩展图片的大小以便它填满整个Dbima ge构件即如果图片太大该构件会自动按比例缩小图片

在封面窗体(TQD_start)中放入个Table构件(从Data Access页中选择其中Name选QDT ableTableName选QD_Tdb)个DataSource 构件(从Data Access页中选择其中Name选Q_S ourceDataSet选QD_T able)个DBImage构件(从Data Controls页中选择其中DataSouce 选QD_SourceDataField选QDStretch选True)和个Ttimer时钟构件( 从Data Access页中选择)

双击Ttimer构件的ONTIMER事件的处理程序如下:

procedure TQD_startTimerTimer(Sender:TObject);

begin

QD_TableMoveBy();

if QD_TableEOF then

begin

QD_TableFirst;

end;

end;

[] [] []