Hola lisette.
Te pongo un ejemplo muy básico de como podes hacerlo:
Código:
void AddToImageList(TImageList *aImageList, char *aName){
Graphics::TBitmap *bm = new Graphics::TBitmap;
__try {
bm->LoadFromFile(aName);
aImageList->Add(bm,bm);
}
__finally {
delete bm;
}
}
Ejemplo de llamada:
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
const AnsiString Ruta = "C:\\TMP\\";
TSearchRec sr;
if (!FindFirst(Ruta + "*.bmp", faArchive, sr))
do
AddToImageList(ImageList1,(Ruta+sr.Name).c_str());
while (!FindNext(sr));
}
Saludos.