TreeView怎样才能得到树当前节点的同一级的下一个节点的问题！

试试看
procedure TForm1.Button1Click(Sender: TObject);
var
        NowNode : TTreeNode;
begin
        NowNode := TreeView1.Selected;
        TreeView1.Selected := TreeView1.Selected.GetNext;
        while TreeView1.Selected.Level <> NowNode.Level do
                TreeView1.Selected := TreeView1.Selected.GetNext;        TreeView1.SetFocus;
end;