如何找到树（TTreeNode）根结点？

Question

树如下所视：
    -信息学院
     -计算机系
      -网络专业
      -软件工程专业
     -电子系
    +文学院
    -理工学院
     -数学系
     -物理系
      -理论物理
      -空气动力学
      -实验物理
     -化学系当我用鼠标“点网络专业”时显示根结点“信息学院”，当我点“计算机系”的时候也显示根结点“信息学院”，同样，当我点“空气动力学”或“物理系”或“理论物理”时显示理工学院，如何做？
显示的话用Showmessage()就OK了。

Answer 1

PNode:=CurNode.Parent;
while PNode <> nil do
begin
CurNode:=PNode;   
PNode := PNode.Parent
end;
ShowMessage(CurNode.text);

Answer 2

var
  TempTreeNode : TTreeNode;
begin
  TempTreeNode := TreeView1.Selected;
  while TempTreeNode.Parent  <> nil do
    TempTreeNode := TempTreeNode.Parent ;
  ShowMessage(TempTreeNode.Text);
end;

Answer 3

同意  lengku800910(lengku) 的
楼主结贴吧！