TreeView

← →
Masa (2002-09-04 16:55) [0]

Есть дерево:

Item 1
---- item 1.2
---------- item 1.2.1

Как по клику на item 1.2.1
узнать item 1.2 и item 1 ?

← →
MBo (2002-09-04 16:57) [1]

Node.Parent

← →
Masa (2002-09-04 18:18) [2]

А как унать Index Item`a который я выбрал ?

← →
MBo (2002-09-04 18:24) [3]

так в OnChange же Node есть, или Selected используй

← →
Masa (2002-09-04 18:48) [4]

Не выходит. :((

procedure TForm1.TreeView1Click(Sender: TObject);
begin
Memo1.Lines.Add(TreeView1.Items[0].Text;
end;

А вот как вместо 0 подставить тот елемент которы Selected ?

← →
McSimm (2002-09-04 18:56) [5]

procedure TForm1.TreeView1Click(Sender: TObject);
begin
if Assigned(TreeView1.Selected) then Memo1.Lines.Add(TreeView1.Selected.Text);
end;

Но лучше: (на OnChange)

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Assigned(Node) then Memo1.Lines.Add(Node.Text);
end;

← →
Masa (2002-09-04 19:02) [6]

Спасибо !
То что надо !

← →
Masa (2002-09-04 19:16) [7]

Item 1
---- item 1.2
---------- item 1.2.1

А каким образом можно получить кликнув на item 1.2.1
имя Item 1 ?

← →
TTCustomDelphiMaster (2002-09-04 21:30) [8]

Node.Parent.Parent

← →
Masa (2002-09-04 23:22) [9]

Например есть вот такое дерево:

Item 1
---- item 1.2
---------- item 1.2.1
---------- item 1.2.1
---------- item 1.2.3
---------- item 1.2.4
---------- item 1.2.5
---- item 1.3
---- item 1.4
item 2
---- item 2.1
---- item 2.2
---------- item 2.2.1
---------- item 2.2.1
---------- item 2.2.3

Нужно при клике на item 2.2.3 или item 2.2 узнать item 2
при клике на item 1.2.5 или item 1.4 узнать Item 1 т.д.

Спасибо за помошь.

← →
MBo (2002-09-05 05:20) [10]

Ты случайно не издеваешься?

поднимайся по Parent, пока он не будет Nil

← →
Masa (2002-09-05 10:19) [11]

Не издеваюсь, просто первый раз с этим работаю. :))
Спасибо за помошь, я уже разобрался как это работает.
Все работает.

TreeView Найти похожие ветки