首页 > 代码库 > rzcheckboxgrop 用法

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;

 

rzcheckboxgrop 用法