知识大全 Delphi中动画设计[2]

Posted 2022-07-14 构件

篇首语：少年辛苦终身事，莫向光阴惰寸功。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi中动画设计[2]相关的知识，希望对你有一定的参考价值。

Delphi中动画设计[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　image picture:=image picture;

　　i:= ;

　　end;

　　i=:i+

　　end;

　　end

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

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

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

　　在封面窗体(TQD_start)中放入个Table构件(从Data Access页中选择其中Name选QDT able TableName选QD_T db) 个DataSource 构件(从Data Access页中选择其中Name选Q_S ource DataSet选QD_T able) 个DBImage构件(从Data Controls页中选择其中DataSouce 选QD_Source DataField选QD Stretch选True)和个Ttimer时钟构件( 从Data Access页中选择)

　　双击Ttimer构件的ONTIMER事件的处理程序如下: 　　procedure TQD_start Timer Timer(Sender:TObject);

　　begin

　　QD_Table MoveBy( );

　　if QD_Table EOF then

　　begin

　　QD_Table First;

　　end;

cha138/Article/program/Delphi/201311/11125