如何在TREEVIEW中当点击一个父节点时，其下一层子树及本身的图标都变成另一幅？

Question

在OnExpand事件中可以控制:
procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
begin
 Node.ImageIndex:=YourImageIndex;
  if node.HasChildren then
  begin
  //遍历所有子节点，设置他们的ImageIndex.......  
  end;
end;

Answer 1

我的树一开始就是打开的，具体一点吧，比如说点击某颗子树，它的图标变成另一幅，当再点击时又变回。而点击父节点时，其下子节点和本身变图，再点击又变回，如何进行？