rzchecktree實現單選以及隱藏選擇框
2023年11月15日 19:45:00 airzh?? 閱讀數 5
1，定義公共樹節點node——select andselect_index,用來儲存當前選中節點
casecadechecks設為false
2.方法如下
stateindex = 1代表沒選中，stateindex = 2,代表選中
tree_checker.itemstate[i] := csunknown代表沒有選擇框。
procedure tfrm_w_checker.tree_checkerclick(sender: tobject);
vari:integer;
flag :string;
begin
node_select := tree_checker.selected;
i := node_select.absoluteindex;
if (node_select.level = 1) then
begin
node_select.stateindex := 2;
doctor := pnodedata(node_select.data)^.doctor;
end;
if (node_select.level = 1) and (node_select.stateindex = 2) then
begin
if (select_index <> 0) and (select_index <> node_select.absoluteindex) then
begin
tree_checker.items[select_index].stateindex := 1;
end;
select_index := node_select.absoluteindex;
end;
for i := 0 to tree_checker.items.count - 1 do
begin
if tree_checker.items[i].level = 0 then
tree_checker.itemstate[i] := csunknown;
end;
end;
RzCheckTree基本使用
rzchecktree基本使用 procedure tform1.button1click sender tobject vari integer begin 迴圈讀取勾選節點 及內容 stateindex 1 unchecked 未選擇 2 checked 選擇 3 indeterminate 不...
RzCheckTree基本使用
procedure tform1.button1click sender tobject vari integer begin 迴圈讀取勾選節點 及內容 stateindex 1 unchecked 未選擇 2 checked 選擇 3 indeterminate 不確定的 for i 0 to r...
CheckBoxList 實現單選
一看標題估計大家都開始懷疑了 單選？為什麼不直接使用 radiobuttonlist 是的。你是對的。然而，實際應用中需求千變萬化，誰讓我們的客戶夠 bt 呢？主要 只有乙個通用的 checkboxlist click 函式，需要注意的是 checkboxlist 可以呈現為 table 布局，也可...