Gif aus Resoure-datei nutzen

[Katrin_K]

Danke für die Antwort.

Habe mir den Bericht durchgelesen und alles probiert, aber leider bekomme ich beim ausführen der ladenprocedure immer eine fehlermeldung. Resource Bildname1.gif wurde nicht gefunden.
Ist meine Resourcedatei vielleicht falsch aufgebaut???

Delphi-Quellcode:

{$R datei.res} 

procedure laden;
var 
  Res  : TResourceStream;
  Bild : TGIFImage;
begin
  Res := TResourceStream.Create(Hinstance, 'Bildname1.gif', PChar('RC_DATA'));
  Bild := TGIFImage.Create;
  try
    Bild.LoadFromStream(res);
  finally
    Res.Free;
  end;

  Image1.Picture.Graphic := Bild;
  Bild.Free;
end;