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