За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Доброго времени суток, все!
Подскажите, пожалуйста, как в текстовом поле отобразить ПОЛНЫЙ адрес
текущего выбранного элемента в TreeView. Например, Programming/Compilers/Delphi7
* Когда в руках молоток, всё вокруг кажется гвоздями
Доброго времени суток, Вадим.
Вы писали 5 декабря 2003 г., 19:37:25
на тему "TreeView в Delphi 7"
Ну это понятно, спасибо. А как в обратном порядке: от родителя к
подэлементу?
* "Ик" - это заблудившийся "пук"
Hello Денис,
А да... Простите, пожалуйста, я дал маху. Но сейчас постараюсь
исправиться.
var
s :String;
n :TTreeNode;
begin
n := Tree.Selected;
s := n.Text;
while n.Parent <> nil do
begin
n := n.Parent;
s := n.Text+'\'+s;// Переставим местами
end;
end;
Здравствуйте !
Если в компоненте TreeView делфи нет никаких конкретных свойств
или методов для получения такого результата, то посоветую сделать так,
как делаю я в VC - просто надо определять родителя выделенного
элемента, затем - родителя родителя, и.т.д., пока не дойдет конца.
Соответственно, у каждого такого элемента надо получать текст и
дописывать в начало формируемой строки.
--
С уважением, Вахтуров Виктор.
Информационный сайт для программистов http://SoftMaker.com.ru
Номер выпуска : 2458
Возраст листа : 165 (дней)
Количество подписчиков : 381
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/97278
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Hello Денис,
"Обойти" всех родителей. Например:
var
s :String;
n :TTreeNode;
begin
n := Tree.Selected;
s := n.Text;
while n.Parent <> nil do
begin
n := n.Parent;
s := s + '\'+n.Text;
end;
end;