月
月满C楼
Unregistered / Unconfirmed
GUEST, unregistred user!
fcTreeView1所有的节点的CheckboxType都是tvctRadioGroup单选类型
如何才能做到任何时候，不管任何level都只能有且仅有一个节点被选中
也就是说，选中接点之后再去选其他任何节点，原来的节点checked:=false;
使用如下过程失败：
procedure TfmeEvtReg.tvEvtTypeToggleCheckbox(TreeView: TfcCustomTreeView;
Node: TfcTreeNode);
var
i:integer;
begin
for i:=0 to tvEvtType.items.count-1 do
begin
if tvEvtType.items.Checked then
begin
tvEvtType.items.Checked:=false;
break;
end;
end;
end;
使用onchange事件也失败
如何才能做到任何时候，不管任何level都只能有且仅有一个节点被选中
也就是说，选中接点之后再去选其他任何节点，原来的节点checked:=false;
使用如下过程失败：
procedure TfmeEvtReg.tvEvtTypeToggleCheckbox(TreeView: TfcCustomTreeView;
Node: TfcTreeNode);
var
i:integer;
begin
for i:=0 to tvEvtType.items.count-1 do
begin
if tvEvtType.items.Checked then
begin
tvEvtType.items.Checked:=false;
break;
end;
end;
end;
使用onchange事件也失败
]