請問 TGifImage 該如何用? http://finn.mobilixnet.dk/delphi/ 在 delphi 選單中的 Component -> Install Component 然後 Unit File Name 選 GIFImage.pas 按下 OK 鈕後, 接著照指示就可以安裝 TGifImage 元件 但是並沒有出現在元件盤上 (和下篇情況相同) http://delphi.ktop.com.tw/topic.php?topic_id=64221 請問有人會用 TGifImage 了嗎? 沒有出現在元件盤上是正常的嗎 ?

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

成功了 (參考這篇) http://delphi.ktop.com.tw/topic.php?TOPIC_ID=73798    

Project 下拉選單, Add To project 選項, 加入 GIFImage.pas    procedure TForm1.Button1Click(Sender: TObject);
//include(GIFImageDefaultDrawOptions, goDirectDraw);
var
  GIF : TGIFImage;
begin
  include(GIFImageDefaultDrawOptions, goDirectDraw);
  GIF := TGIFImage.Create;
  try
    GIF.ThreadPriority := tpLowest;
    GIF.LoadFromFile('C:\mark.gif');
    Image1.Picture.Assign(GIF);
    Image1.Visible := True;
  finally
    GIF.Free;
  end;
end;

發表人 - pcboy2 於 2005/06/24 12:33:29

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！