Cambiar entre imágenes en TImage

[ecfisa]

Hola.

Te pongo este ejemplo por si te sirve de ayuda.

img.rc

1 RCDATA "img1.bmp"
2 RCDATA "img2.bmp"
3 RCDATA "img3.bmp"

Código PHP:

...

#pragma resource "IMG.RES"

void resToimg(TImage *img, const int inx)
{
 TResourceStream *RS = new TResourceStream((int)HInstance, inx, RT_RCDATA);

 try {
   img->Picture->Bitmap->LoadFromStream(RS);
 }
 __finally {
   delete RS;
 }

}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  resToimg(Image1, 1);
  resToimg(Image2, 2);
  resToimg(Image3, 3);
} 


Muestra:


Saludos