fcTreeView任何情况下只有一节点被选中

 procedure TfmeEvtReg.tvEvtTypeToggleCheckbox(TreeView: TfcCustomTreeView;
  Node: TfcTreeNode);
var
    i : integer;
begin
    tvEvtType.OnToggleCheckbox := nil;

    for i := 0 to tvEvtType.Items.Count -1 do
    begin
        if Node <> tvEvtType.Items[i] then
        begin
            tvEvtType.Items[i].Checked := False;
        end;
    end;

    tvEvtType.OnToggleCheckbox := tvEvtTypeToggleCheckbox;
end;