码迷,mamicode.com
首页 > 其他好文 > 详细

TRzCheckTree的使用

时间:2020-11-04 17:45:55      阅读:17      评论:0      收藏:0      [点我收藏+]

标签:nil   empty   ted   ring   index   evel   tab   not   var   

1.   判断状态:   
    
  if   RzCheckTree1.Selected.StateIndex   =   2   then   
      //则为选中状态   
  else   if   RzCheckTree1.Selected.StateIndex   =   1   then   
      //则为未选中状态   
  else   if   RzCheckTree1.Selected.StateIndex   =   3   then   
      //则为未全选状态   
    
  或者   
    
  if   RzCheckTree1.ItemState[I]   =   csUnchecked   then   //为未选中状态   
  if   RzCheckTree1.ItemState[I]   =   cschecked   then   //为选中状态   
    
    
  2:   设置   
    
  RzCheckTree1.ItemState[I]   :=   csUnchecked     //为未选中状态   
  RzCheckTree1.ItemState[I]   :=   cschecked     //为选中状态  

 

 

权限树的创建

procedure CreatePermissionsTree(DataSet: TADOQuery; Tree: TRzCheckTree;
  const TableName, aid, aname, quanXian: string);
const
  ID_DEPT = 2;
var
  nLevel: Integer;
  pNodes: array[0..1023] of TTreeNode;
  lpid, lpName, s: string;
begin
  if DataSet = nil then Exit;
  if Tree = nil then Exit;
  if TableName = ‘‘ then Exit;
  pNodes[0] := nil;
  Tree.Items.Clear;
  with DataSet do
  begin
    Close;
    SQL.Clear;
    s := Format(‘select * from %s order by %s‘, [TableName, aid]);
    SQL.Text := s;
    Open;
    if IsEmpty then Exit;
    First;
    while not Eof do
    begin
      lpid := FindField(aid).AsString;
      lpName := FindField(aname).AsString;
      nLevel := Length(lpID) div ID_DEPT;

      pNodes[nLevel] := Tree.Items.AddChild(pNodes[nLevel - 1], lpName);
      if FindField(‘quanxian‘).AsBoolean then
        pNodes[nLevel].StateIndex := 2
      else pNodes[nLevel].StateIndex := 1;
      Next;
    end;
  end;
end;

TRzCheckTree的使用

标签:nil   empty   ted   ring   index   evel   tab   not   var   

原文地址:https://www.cnblogs.com/jijm123/p/13919867.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!