TfcTreeView谁用过？ ( 积分: 20 )

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事件也失败

procedure TForm1.fcTreeView1ToggleCheckbox(TreeView: TfcCustomTreeView;
Node: TfcTreeNode);
var
i:integer;
begin
if node.Checked=TRUE then
BEGIN
for i:=0 to TreeView.items.count-1 do
begin
IF TreeView.items<>node then
TreeView.items.Checked:=false;

end;
END;
end;

procedure TForm1.fcTreeView1ToggleCheckbox(TreeView: TfcCustomTreeView;
Node: TfcTreeNode);
var
i:integer;
begin
if node.Checked=TRUE then
BEGIN
for i:=0 to TreeView.items.count-1 do
begin
IF TreeView.items<>node then
TreeView.items.Checked:=false;

end;
END;
end;