我创建 了资源文件.RES
我想把他 导入到IMAGELIST里,如何实现,
或提供RES文件的其他例子或资料,谢谢!!!

解决方案 »

  1.   

    function GetResourceAsJpeg(const resname: string): TJPEGImage;
    var
      Stream: TResourceStream;
    begin
      Stream := TResourceStream.Create(hInstance, ResName, 'JPEG');
      try
        Result := TJPEGImage.Create;
        Result.LoadFromStream(Stream);
      finally
        Stream.Free;
      end;
    end;procedure TFrmInStall.Timer1Timer(Sender: TObject);
    begin
       Int_MM:=Int_MM+1;
       Image1.Picture.Bitmap.Assign(GetResourceAsJpeg('Image'+IntToStr(Int_MM)));
    end;
      

  2.   

    我的意思是资源文件里有多个BITMAP,想导入到IMAGELISTL里,如何实现