visuala 你好:
可以利用 TImage 的 CopyRect method 及 TTimer 來達成目的
(>>>>>>>>>>>>>>>>>>>>>>>>>>>>=>
< class="code">
備註:
(1)iIndex 是指 TMemoryStream 陣列 (msBitmap) 的 index
(2)iIndex 及 msBitmap 可設為全域變數或 TForm1 class 的 member
(3)以上的範例已經假設載入的 Bitmap 有 6 張
(4)調整 Timer1 的 Interval 屬性即可控制播放的速度
(5)以上的範例程式碼有幾行是可以省略的，就留給你自己發覺吧
(6)iIndex 宣告為整數 (int iIndex;)
(7)msBitmap 宣告為 TMemoryStream (TMemoryStream *msBitmap[6];)
(8)在 FormCreate 裡面一開始的時候就要 new 並載入 Bitmap，例如:
   for(i=0; i<6; i  )
   {
      msBitmap[i]=NULL;
      msBitmap[i]=new TMemoryStream;
      msBitmap->LoadFromFile(...);
   }
(9)在 FormDestroy 的時候，要記得 delete
   for(i=0; i<6; i  )
   {
      if(msBitmap[i]!=NULL)
      {
         delete msBitmap[i];
      }
   }
(10)先用滑鼠點一下 Form1，然後在 Object Inspector 裡面切換到 Events，
    在 OnCreate, OnDestroy 用滑鼠點兩下，就會出現 event procedure 的程
    式碼 template
(11)如果還有新的問題請重新發問，感謝你的配合