Delphi TAnimate 組件專為播放無聲音的 AVI 動畫設計,常用於檔案複製、搜尋、下載等長時間操作的視覺回饋。它支援兩種來源:系統內建通用動畫與外部 AVI 檔案,使用極簡單。
Windows 提供數組預設 AVI 動畫(複製檔案、搜尋、刪除等),無需外部檔案即可直接使用。
CommonAVI := aviCopyFile(或 aviFindFile、aviFindComputer 等)FormCreate 中啟用:Animate1.Active := True
procedure TForm1.FormCreate(Sender: TObject);
begin
Animate1.Active := True; // 立即開始播放循環動畫
end;

| 常數 | 動畫內容 |
|---|---|
| aviCopyFile | 複製檔案(資料夾間飛紙) |
| aviFindFile | 搜尋檔案(放大鏡掃描) |
| aviFindComputer | 搜尋電腦(網路鄰居掃描) |
| aviRecycleFile | 回收桶刪除(丟入垃圾桶) |
| aviEmptyRecycle | 清空回收桶 |
| aviDeleteFile | 刪除檔案(撕碎紙張) |
若需自訂動畫(如品牌 Logo 旋轉、專屬載入特效),可指定 FileName 屬性:
Animate1.FileName := 'C:\MyAnimations\loading.avi';
Animate1.Active := True;
// 或在設計階段直接設定 FileName 屬性
| 需求 | 實作方式 |
|---|---|
| 動態切換動畫 | Animate1.Active := False; Animate1.FileName := newFile; Animate1.Active := True; |
| 播放特定幀區間 | 設定 StartFrame、StopFrame 屬性(0 起始索引) |
| 單次播放不循環 | Animate1.Repetitions := 1(預設 0 為無限循環) |
| 背景透明化 | AVI 本身無透明通道;需製作綠幕後配合 TransparentColor 屬性(支援有限) |
| 執行緒安全 | 長時間操作請放在背景執行緒,UI 執行緒僅負責 Active := True/False |
TAnimate 技術較老舊(源自 Windows 95 時代),新專案建議考慮:
TImage + 第三方元件(如 TGIFImage)支援透明、循環、廣泛相容Skia4Delphi、LottieDelphi 等現代庫,向量縮放、檔案小、設計師友善TEdgeBrowser (WebView2) 載入本地 HTML,發揮 Web 動畫生態優勢儘管如此,TAnimate 仍是零依賴、零部署、即開即用的輕量選擇,適合內部工具、舊專案維護、或極簡部署需求的場合。