ChinaCock界面控件介绍-CCNewsSilder

Posted 2021-02-03 kinglandsoft

上图是控件包里的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;