rzcheckboxgrop 用法

最新推荐文章于 2019-06-17 03:11:05 发布

aiyitan9175

最新推荐文章于 2019-06-17 03:11:05 发布

阅读量102

点赞数

原文链接：http://www.cnblogs.com/cnby/p/4046393.html

版权

效果如上，简单代码操作如下：

强调需要先初始化数据，然后再遍历设置初始的checked为true;

     i:=0;
     try
     rzchckgrp1.Items.BeginUpdate;
     SetLength(myjcxArray, adojcxmset.RecordCount);  //创建动态数组，有5个元素
      with adojcxmset do
      begin
        while not Eof do
        begin
        rzchckgrp1.Items.Add(FieldByName('mcheng').AsString );   //添加名称显示    
        myjcxArray[i].isselect:=FieldByName('isselect').AsString;       

        i:=i+1;
        Next;
        end;
      end;
      rzchckgrp1.Items.EndUpdate;
    finally

    end;
  //遍历设置初始checked状态
   for i:=0 to rzchckgrp1.Items.Count-1 do
   begin
      if myjcxArray[i].isselect<>'0' then  
      rzchckgrp1.ItemChecked[i]:=True;
   end;

转载于:https://www.cnblogs.com/cnby/p/4046393.html