Delphi實現Windows中常見的動畫效果代碼

Delphi實現Windows中常見的動畫效果代碼，比如復制文件時候的窗口動畫、刪除文件、清空回收站、查找計算機、搜索文件、搜索文件夾、刪除文件到回收站時的動畫效果，為你制作類似的動畫效果提供參考，完整代碼如下：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04 Windows, Messages, SysUtils, Classes, Graphics, Controls, 05 Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls; 06 type 07 TMainForm = class(TForm) 08 Animate1: TAnimate; 09 RadioGroup1: TRadioGroup; 10 GoBitBtn: TBitBtn; 11 StopBitBtn: TBitBtn; 12 BitBtn1: TBitBtn; 13 StatusText: TStaticText; 14 Label1: TLabel; 15 procedure GoBitBtnClick(Sender: TObject); 16 procedure StopBitBtnClick(Sender: TObject); 17 private 18 { Private declarations } 19 public 20 { Public declarations } 21 end; 22 var 23 MainForm: TMainForm; 24 implementation 25 {$R *.DFM} 26 type 27 aviKindArray = array[0 .. 7] of TCommonAvi; //定義動畫數組 28 aviStringArray = array[0 .. 7] of String; //定義播放動畫說明文字數組 29 const 30 aviKinds: aviKindArray = 31 (aviCopyFile, 32 aviCopyFiles, 33 aviDeleteFile, 34 avIEmptyRecycle, 35 aviFindComputer, 36 aviFindFile, 37 aviFindFolder, 38 aviRecycleFile); 39 aviStrings: aviStringArray = 40 (’復制文件’, 41 ’復制多個文件’, 42 ’刪除文件’, 43 ’清空回收站’, 44 ’查找計算機’, 45 ’搜索文件’, 46 ’搜索文件夾’, 47 ’刪除文件到回收站’); 48 procedure TMainForm.GoBitBtnClick(Sender: TObject); 49 var 50 AnimIndex: Integer; // 動畫數組目錄 51 begin 52 AnimIndex := RadioGroup1.ItemIndex; 53 with Animate1 do 54 begin 55 StatusText.Caption := aviStrings[AnimIndex]; 56 CommonAVI := aviKinds[AnimIndex]; 57 Play(1, FrameCount, 0); // 開始動畫演示 58 end; 59 end; 60 procedure TMainForm.StopBitBtnClick(Sender: TObject);//停止動畫 61 begin 62 Animate1.Stop; 63 StatusText.Caption := ’(停止動畫)’; 64 end; 65 end.