imagelist怎么动态添加图片？

首先imagelist里没有图片，我想动态添加图片imagelist控件，怎么办？  
  最好有代码，谢谢各位老大。 问题点数：20、回复次数：6Top

1 楼newyj（吴刚ｖｓ西西弗）回复于 2002-03-27 18:46:54 得分 20

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      bmp:tbitmap;  
      icon:Ticon;  
  begin  
      bmp:=   tbitmap.Create;  
      bmp.LoadFromfile('c:\winnt\lanma256.bmp');  
      ImageList1.Add(bmp,bmp);  
      memo1.Lines.Add(inttostr(imagelist1.Count));  
      icon:=ticon.Create;  
      icon.LoadFromFile('c:\1.ico');  
      ImageList1.AddIcon(icon);  
      memo1.Lines.Add(inttostr(imagelist1.Count));  
      icon.Free;  
      bmp.Free;  
  end;Top

2 楼shangshang（大雪有痕）回复于 2002-03-27 18:49:24 得分 0

来晚了，我踢！！！Top

3 楼zuoyangguang（瓜瓜）回复于 2002-03-27 19:05:35 得分 0

谢谢，搞定了在给分，ok?Top

4 楼zuoyangguang（瓜瓜）回复于 2002-03-27 19:11:31 得分 0

to:newyj(老鬼)   可以在formcreate事件中写吗？  
  为什么我那样做不对呢？Top

5 楼zuoyangguang（瓜瓜）回复于 2002-03-27 19:13:39 得分 0

报错，invalid   image   size,何解？？Top

6 楼newyj（吴刚ｖｓ西西弗）回复于 2002-03-28 18:39:27 得分 0

 
  要form   activate   show   里写  
  formcreate时还没有控件呢Top

相关问题

• imagelist
• bmp
• 图片
• icon
• add

• 帖主：zuoyangguang
• newyj

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载