Вниз
Скачать: CL | DM;

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]

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



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c
1-50834
Filat
2002-09-02 20:22
2002.09.16
Компон. из RaLib. RAScrollMax - как определить что все свернуто?


7-50999
Gayrus
2002-06-28 03:49
2002.09.16
LPT порт


8-50872
Deztiny
2002-05-13 21:28
2002.09.16
Памагите!!! Надо крутить битмап


14-50960
paul_shmakov
2002-08-21 16:21
2002.09.16
Предложение к Merlin по работе с архивами форумов


14-50967
MAxiMum
2002-08-21 19:42
2002.09.16
Команда




   Наверх