Hola yn4v4s.
Revisa este enlace :
Una ayuda con Imágenes PNG, aunque, tratándose de un
TImage, tendrías que hacer unos pequeños cambios:
Código Delphi
[-]
...
implementation
{$R imagen.res}
uses PngImage;
procedure LoadPngFromResource(const ResName: TFileName; const Index: Integer; BM: TBitmap);
var
RE : TResourceStream;
begin
with TPngObject.Create do
try
RE := TResourceStream.Create(hInstance, '#'+ IntToStr(Index), RT_RCDATA);
try
RE.Seek(0, soFromBeginning);
LoadFromStream(RE);
AssignTo(BM);
finally
RE.Free;
end;
finally
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadPngFromResource('IMAGEN.RES', 1, Image1.Picture.Bitmap);
end;
Saludos