從.Res文件加載Gif圖片

Question

我想加載動畫.Gif圖片到TImage從.Res文件，但TImage只爲MyImage.Picture .Bitmap準備LoadFromResourceName（）函數。 我寫了一個簡單的代碼如下

procedure TForm2.FormCreate(Sender: TObject); 
Var 
    MyImage:TImage; 
begin 
    MyImage:=TImage.Create(Self); 
    MyImage.Parent:=Self; 
    MyImage.AutoSize:=True; 
    MyImage.Picture.LoadFromFile('H:\Component\Automation\Test\Animation\TL.Gif'); 
    MyImage.Top:=0; 
    MyImage.Left:=0; 
    MyImage.Visible:=True; 
    MyImage.Transparent:=True; 
(MyImage.Picture.Graphic as TGIFImage).Animate := True; 
(MyImage.Picture.Graphic as TGIFImage).AnimationSpeed:= 100; 
end; 

它正常工作。現在，我想從.Res文件加載.Gif圖片時該怎麼辦？

Answer 1

1. 將gifimg單元包含在程序中的至少一個uses子句中。
2. 將圖像鏈接到您的可執行文件作爲資源。
3. 將資源加載到TResourceStream對象中。
4. 創建TGifImage對象，並通過調用LoadFromStream()，從步驟使料流3
5. 分配TGifImage對象到TImage.Picture屬性的圖像加載到它。