請問各位大大 有可以置放GIF圖片的元件嗎? 我用的是Delphi 2005

TImage 就行了啊？

我試過了耶 我的 TImage 沒辦法抓 GIF 圖檔 會不會是我只灌 win32 的關係?

啊，不好意思，因為 Delphi 7 的 TImage 可以直接放 GIF 所以沒有想到，Delphi 2005 不行....||    這時候，你可能得靠第三方控件了 你可以考慮看看 GraphicEx 先到這裡下載 http://www.lischke-online.de/GraphicEx.php    1. 安裝    step 01    先把 GraphicEx.zip 解壓縮到某個目錄下 然後，將該目錄加到 Delphi2005 Library Path 裡 [Tools] -> [Options] -> [Environment Options] -> [Delphi Options] -> [Library - Win32] -> [Library Path:]    step 02 在該目錄下找到 GraphicConfiguration.inc 打開它 找到這行: {.$define UseLZW} // if this is not defined (default) then neither the GIF format nor the 改成 {$define UseLZW} // if this is not defined (default) then neither the GIF format nor the 修改完後，就可以用 GIF 了    2. 程式裡的寫法，像這樣

uses GraphicEx;    procedure TForm1.Button1Click(Sender: TObject);
var
  gif: TGIFGraphic;
begin
  gif := TGIFGraphic.Create;
  gif.LoadFromFile('c:\test.gif');
  Image1.Picture.Assign(gif);
  gif.free;
end;

感謝 reptile 的回覆 現在已經可以將 GIF 放上去了 可是並沒有動畫功能耶 不知該怎麼做才好?

引言: 感謝 reptile 的回覆 現在已經可以將 GIF 放上去了 可是並沒有動畫功能耶 不知該怎麼做才好?

TGIFGraphuc 有個 ReadImageProperties 這一個應該就可以讀入各個圖層了 不過，可能得自己用 Timer 來做動畫效果了 不然你可以去找找 TGIFImage 來試試，看可不可以幫你動 試試看吧，還是不行的話，晚點再研究囉

我已經用TGIFImage搞定了 謝謝