TreeView + CheckBox 没人回答吗？找员工档案管理软件

财务软件版1楼: 我完成了该功能,在点击节点后,显示选中,方法是点击节点更改其StateIndex值,显示被选中的图片,再次点击后,更改StateIndex的值,显示未选中的图片,如下图
[img]http://www.whyc.cn/TreeView.jpg[/img]
我要改进其功能,在点击父亲节点后,父亲节点显示被选中,其子节点也显示被选中,在点击父亲节点取消选择后,其子节点也取消选择,请问如何实现？
分不多,谢谢大家!

2楼: 循环递归寻找其自节点如员工档案管理软件

3楼: To anyway:
能给出源码吗？

4楼: procedure ChangeState(ATreeNode: TTreeNode);
begin
if Assigned(ATreeNode) then
ATreeNode.Text := ＇＇@＇＇ + ATreeNode.Text; //在这里改变节点状态。
end;

procedure TravelNode(StartNode: TTreeNode);
var
i: Integer;
begin
if Not Assigned(StartNode) then Exit;
if StartNode.HasChildren then
begin
for i := 0 to StartNode.Count - 1 do
begin
ChangeState(StartNode.Item[i]);
TravelNode(StartNode.Item[i]);
end;
end;
end;