var
j,i,k:integer;
str:string;
begin
str:='';
for i:=0 to treeview1.Items.Count do begin
if treeview1.Items.Item[i].Text=treeview1.Selected.Text then begin
k:=i;
break;
end;
end;
for i:=0 to k-1 do
str:=str+ #13#10+treeview1.Items.Item[i].Text ;
showmessage(str);
end;
如果要同层节点,在if 条件处加上treeview1.items.item[i].parent=treeview1.selected.parent,就可以了。
你试验一下吧!