菜鸟求教怎么向imagelist动态加载图片

[终极威天]

我把图片放在image文件夹中，怎么imagelist获取文件夹中所有图片，，并且image文件夹中图片可以添加和删除的，，

[hyz_cs]

前两天刚遇到过这个问题,后来搜到妖哥的一帖子解决的.

void __fastcall CrnAddTImageToImageList(TImage *img, TImageList *il)
{
    Graphics::TBitmap *bmp = new Graphics::TBitmap;
 
    bmp->Width = 30;
    bmp->Height = 30;
 
    bmp->Canvas->StretchDraw(TRect(0, 0, 30, 30), img->Picture->Graphic);
 
    il->Add(bmp, NULL);
 
    delete bmp;
}
 
// ---------------------------------------------------------------------------
//
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    CrnAddTImageToImageList(Image1, ImageList1);
}

http://bbs.csdn.net/topics/360105721

[我不懂电脑]

如何将Imagelist里的图片存入文件？如何将图片从文件载入ImageList? void __fastcall TForm1::Button1Click(TObject *Sender) { TFileStream *FileStream ; FileStream=new TFileStream("C:\\1.dat",fmCreate); FileStream->WriteComponent(ImageList1); FileStream->Free(); } //--------------------------------------------------------------------------- //#include "systobj.h" void __fastcall TForm1::Button2Click(TObject *Sender) { TFileStream *FileStream ; //RegisterClass(TImageList); FileStream=new TFileStream("C:\\1.dat",fmOpenRead); (TComponent *)(ImageList1) =FileStream->ReadComponent(ImageList1); FileStream->Free(); }