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

[]  []  []  

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