5,392
社区成员
发帖
与我相关
我的任务
分享进来拿分吧（Treeview控件怎么判断被select的节点没有子节点）
Treeview控件怎么判断被select的节点没有子节点，包括左键和右键选中的节点
...全文
请发表友善的回复…
发表回复
Spqk005 2003-08-18
- 打赏
- 举报
treeview.selected.haschild
ZyxIp 2003-08-18
- 打赏
- 举报
if treeview.selected<>nil then
if treeview.Selected .Count>0 then
showmessage('OK')
if treeview.Selected .Count>0 then
showmessage('OK')
DWGZ 2003-08-18
- 打赏
- 举报
忘了，上面的在OnMouseDown里写
DWGZ 2003-08-18
- 打赏
- 举报
右键
var
Node: TTreeNode;
begin
if Button = mbRight then
begin
Node := TreeView1.GetNodeAt(X, Y);
if Node <> nil then
Node.Selected := True;
end;
end;
var
Node: TTreeNode;
begin
if Button = mbRight then
begin
Node := TreeView1.GetNodeAt(X, Y);
if Node <> nil then
Node.Selected := True;
end;
end;
d983074 2003-08-18
- 打赏
- 举报
node.HasChildren
firstshine 2003-08-18
- 打赏
- 举报
begin
if treeview1.selected=nil then exit;
if treeview1.selected.Count>0 then showmessage('有子节点');
end;
if treeview1.selected=nil then exit;
if treeview1.selected.Count>0 then showmessage('有子节点');
end;
