Текущий архив: 2004.01.13;
Скачать: CL | DM;

Вниз

Путь в TreeView?   Найти похожие ветки 

← →
MadAngel ©   (2003-12-28 14:13) [0]

Как получить полный путь до выбранного итема в TreeView?

---

← →
Opuhshii ©   (2003-12-28 14:47) [1]

TTreeNode.Parent, TTreeNode.Level

---

← →
Opuhshii ©   (2003-12-28 14:47) [2]

выбраный соответственно TTreeView.Selected

---

← →
jack128 ©   (2003-12-28 14:53) [3]

Node := TreeView.Selected;
Result := "";
while Assigned(Node) do
begin
Result := Result + Node.Text +",";
Node := Node.Parent;
end;
SetLength(Result, Length(Result) - 1);

---

← →
MadAngel ©   (2003-12-28 15:19) [4]

to jack128
Спасибо большое,только надо было вот так:

Var
Node:TTreeNode;
Result:string;
begin
Node := TreeView1.Selected;
Result := "";
while Assigned(Node) do
begin
Result :=Node.Text+"\"+Result;
Node := Node.Parent;
end;
SetLength(Result, Length(Result) - 1);
end;

Может кому пригодится...

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c