rzcheckboxgrop 用法

效果如上,简单代码操作如下:

强调需要先初始化数据,然后再遍历设置初始的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;

 

posted @ 2014-10-23 17:35  cnby3  阅读(212)  评论(0)    收藏  举报