您的位置:首页 > 其它

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

2007-10-23 10:57 218 查看
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;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐