como cargar un tbitmap desde un recurso?

[ixMike]

Ahora mismo no tengo Delphi a mano, pero estoy seguro de que esto funciona:

Código Delphi [-]
procedure TfSplash.FormCreate(Sender: TObject);
 var
    Corriente   : TResourceStream;
    Imagen      : TBitmap;
 begin
   Imagen:=TBitmap.Create;
   Corriente:=TResourceStream.Create(hInstance, '#1', RT_RCDATA );
   Corriente.Seek(0,soFromBeginning);
   Imagen.LoadFromStream(Corriente);
   Image1.Canvas.Draw(0,0,Imagen);
   Imagen.Free;
   Corriente.Free;
 end;

Salu2.

[mario2000]

Ahora si me funciono tal ves me falto algo pero no se que por que habia comenzado de nuevo.

[mario2000]

No encuentro la forma de copiar un bmp de un recurso en un objeto tbitmap. Le cuento: es que estoy usando un truco que encontre en aca para colocar una imagen de fondo pero no queda bien que la imagen tenga que estar en un directorio si no mas bien en el propio ejecutable. La funcion coloca el bmp en un tbitmap y luego la pasa al form, asi que si logro copiar del recurso lo demas esta hecho. Espero me puedan ayudar.

[ixMike]

No lo entiendo. Si dices que el código que te he puesto funciona, ¿dónde está el problema? El recurso se carga en un Bitmap.