标签：滚动 gif 设置 stop code ali pre color info
上图是控件包里的Demo运行效果，轮播新闻图片。
这个控件用起来简单，拖放一个CCNewsSiler到Form上，设置Align为Top，再设置好高度，然后用代码加载图片：
procedure TForm1.Button2Click(Sender: TObject); begin CCNewsSilder1.BeginUpdate; try self.CCNewsSilder1.Add(‘移动信息化专家‘, ‘url|http://www.jaina.cc/weixin/galley/images/86102_11509640177.jpg‘, ‘aa‘); self.CCNewsSilder1.Add(‘移动信息化专家‘, ‘url|http://photocdn.sohu.com/20150721/Img417214057.jpg‘, ‘bb‘); self.CCNewsSilder1.Add(‘移动信息化专家‘, ‘url|http://photocdn.sohu.com/20150721/Img417214058.jpg‘, ‘cc‘); // self.CCNewsSilder1.Add( ‘a‘, ‘file|f:/23131411qdq4.jpg‘, ‘dd‘) ;//加载本地图片 finally CCNewsSilder1.EndUpdate; end; self.CCNewsSilder1.Play; //开始滚动图片 end;
通过代码，可以看到，利用CCNewsSilder.Add方法，可以加载一个url指定的图片，也可以加载本地文件。
function TCCNewsSilder.Add(ATitle: string; AImageURL: string; AKeyValue: string):TCCNewsSilderPage;
这是Add的原型，参数说明：
ATitle:图片下边显示的标题
AImageURL:图片的地址，对于URL，用URL|做为前缀，要于文件用File|做为前缀。
AKeyValue:唯一的ID值。
加载完图片，调用Play方法，即开始轮播图片。
如果不想显示图片的标题，可以在运行期设置BottonBandHeight为0。
停止轮播：
procedure TForm1.Button4Click(Sender: TObject); begin self.CCNewsSilder1.Stop;//停止轮播 end;
单击图片事件：
procedure TForm1.CCNewsSilder1CCNewsSilderPageClick(Sender: TObject; const AKeyValue: string); begin showmessage(‘当前选择KeyValue：‘+AKeyValue+‘;可根据KeyValue进行其他业务处理!‘); end;
删除图片：
procedure TForm1.Button3Click(Sender: TObject); begin // 删除当前页 self.CCNewsSilder1.DeletePage(self.CCNewsSilder1.PageIndex); end;
标签：滚动 gif 设置 stop code ali pre color info
原文地址：https://www.cnblogs.com/kinglandsoft/p/10279339.html
