Ejemplo
En el ejemplo que me indicas
{$R MyRes.RES}
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
MyRS: TResourceStream;
begin
try
MyRS:=TResourceStream.Create(HInstance, 'HELP', RT_RCDATA);
Image1.Picture.LoadFromFile('example.jpg');
if Image1.Picture.Graphic is TJPEGImage then
TJPEGImage(Image1.Picture.Graphic).LoadFromStream(MyRS);
finally
MyRS.Free;
end;
end;
cuando lo utilizo en mi proyecto me carga por defecto una rosa, que no se de donde sale, hay algo que tenga que modificar? Gracias
|