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;

[]  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/11125.html