怎样动态的向imagelist中添加图片(bitmap)？

Question

同上

Answer 1

ImageList1.Add(Image1.Picture.Bitmap, nil);
//or
  ImageList1.Insert(0, Image1.Picture.Bitmap, nil);

Answer 2

zswang，这样添加的图片，不会自动透明的~~~~~~：），我当初就吃过亏，后来发现一个好的方法，添加之后，可以用于工具栏，菜单，会自动透明的：
从资源中加载图片到ImageList中，并透明
procedure LoadImageList(ImageList: TImageList; ResName: string);
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromResourceName(HInstance, ResName);
    Bmp.TransparentMode := tmAuto;
    Bmp.Transparent := True;
    ImageList_AddMasked(ImageList.Handle,Bmp.Handle,Bmp.TransparentColor);
  finally
    Bmp.Free;
  end;
end;