RzCheckTree基本使用

procedure

tform1.button1click(sender: tobject);
vari: integer;
begin
//迴圈讀取勾選節點**及內容
//stateindex 1:unchecked(未選擇) 2:checked(選擇) 3:indeterminate（不確定的）
for i := 0
to rzchecktree1.items.count - 1
dobegin
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
//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
dobegin
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
dobegin
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
dobegin
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
dobegin
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
dobegin
if rzchecktree1.items[i].level = 1
then
memo1.lines.add(rzchecktree1.items[i].text);
end;end;

RzCheckTree基本使用

rzchecktree基本使用 procedure tform1.button1click sender tobject vari integer begin 迴圈讀取勾選節點 及內容 stateindex 1 unchecked 未選擇 2 checked 選擇 3 indeterminate 不...

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代表沒選中...