RzCheckTree基本使用

2021-10-23 01:45:39 字數 2585 閱讀 1058

rzchecktree基本使用

procedure tform1.button1click(sender: tobject);

vari: integer;

begin

//迴圈讀取勾選節點**及內容

//stateindex 1:unchecked(未選擇) 2:checked(選擇)  3:indeterminate(不確定的)

for i := 0 to rzchecktree1.items.count - 1 do

begin

if rzchecktree1.items[i].stateindex = 2 then

begin

//vartostr(rzchecktree1.items[i].index);  //讀取節點標識序號

// 讀取節點值

memo1.lines.add(rzchecktree1.items[i].text);

end;

//    另一種判斷方式

//    if rzchecktree1.itemstate[i] = cschecked then

//    begin

//      memo1.lines.add(rzchecktree1.items[i].text);

//    end;

end;

end;

procedure tform1.button2click(sender: tobject);

begin

//展開全部節點

rzchecktree1.fullexpand;

end;

procedure tform1.button3click(sender: tobject);

begin

//關閉全部節點

rzchecktree1.fullcollapse;

end;

procedure tform1.button4click(sender: tobject);

vari: integer;

begin

//全部選擇

//stateindex 1:unchecked(未選擇) 2:checked(選擇)  3:indeterminate(不確定的)

for i := 0 to rzchecktree1.items.count - 1 do

begin

rzchecktree1.items[i].stateindex := 2;

end;

end;

procedure tform1.button5click(sender: tobject);

vari: integer;

begin

//全部取消選擇

//stateindex 1:unchecked(未選擇) 2:checked(選擇)  3:indeterminate(不確定的)

for i := 0 to rzchecktree1.items.count - 1 do

begin

rzchecktree1.items[i].stateindex := 1;

end;

end;

procedure tform1.button6click(sender: tobject);

vari: integer;

begin

//反選

//stateindex 1:unchecked(未選擇) 2:checked(選擇)  3:indeterminate(不確定的)

for i := 0 to rzchecktree1.items.count - 1 do

begin

if rzchecktree1.items[i].stateindex = 1 then

rzchecktree1.items[i].stateindex := 2

else

rzchecktree1.items[i].stateindex := 1;

end;

end;

procedure tform1.button7click(sender: tobject);

vari: integer;

begin

//讀取全部父節點

for i := 0 to rzchecktree1.items.count - 1 do

begin

if rzchecktree1.items[i].level = 0 then

memo1.lines.add(rzchecktree1.items[i].text);

end;

end;

procedure tform1.button8click(sender: tobject);

vari: integer;

begin

//讀取全部第二級子節點

for i := 0 to rzchecktree1.items.count - 1 do

begin

if rzchecktree1.items[i].level = 1 then

memo1.lines.add(rzchecktree1.items[i].text);

end;

end;

RzCheckTree基本使用

procedure tform1.button1click sender tobject vari integer begin 迴圈讀取勾選節點 及內容 stateindex 1 unchecked 未選擇 2 checked 選擇 3 indeterminate 不確定的 for i 0 to r...

RzCheckTree許可權樹的建立

trzchecktree的使用 rzchecktree1.fullexpand 展開所有的節點 rzchecktree1.fullcollapse關閉所有展開的節點 rzchecktree1.itemstate i csunchecked 取消選擇 這句可以用乙個for迴圈將所有的都設定為csunc...

rzchecktree實現單選以及隱藏選擇框

rzchecktree實現單選以及隱藏選擇框 2017年11月15日 19 45 00 airzh?閱讀數 5 1,定義公共樹節點node select andselect index,用來儲存當前選中節點 casecadechecks設為false 2.方法如下 stateindex 1代表沒選中...