怎样实现单击展开一个节点

Question

怎样实现单击展开一个节点

Answer 1

下面的办法由一点毛病，你如果去点“+”或“-”时有一点问题
procedure TForm1.TreeView1Click(Sender: TObject);
var
  SelectNode:TTreeNode;
begin
  SelectNode := TreeView1.Selected;
  if (SelectNode.HasChildren) then
  begin
    if (not SelectNode.Expanded) then
    begin
      SelectNode.Expand(true);
    end
    else
    begin
      SelectNode.Collapse(true);
    end;
  end;
end;