[mmonster]

Спасите Голова уже не варит как это сделать...

Код:

Ветка1
-Ветка2
      -Ветка2.1
             -Ветка2.2
                    -Ветка2.3
                             Ветка2.4(здесь указатель)
Ветка3
Ветка4

По клику на Button нужно получить текст прородителя всей ветви. тоесть "Ветка2"
Пробовал через Selected.Parrent но чота до ума довести неудалось

[lmikle]

Ну дык и иди вверх пока Parent не станет nil

Код:

function GetRoot(Node : TTreeNode) : String;
begin
  While Node.Parent <> Nil Do
    Node := Node.Parent;
  Result := Note.Text;
end;

[Страдалецъ]

Вообще, если буквально делать то что вы просите, то так:

Код:

Copy(TreeView1.Selected.Text,1,Pos('.',TreeView1.Selected.Text)-1)