摘要: var i:integer=1;procedure TForm4.BitBtn1Click(Sender: TObject);begin Inc(i);if i>ImageList1.Count-1 then i:=0;ImageList1.GetBitmap(i,image1.... 阅读全文
posted @ 2015-12-26 16:13 刀小爱 阅读(757) 评论(0) 推荐(0) 编辑