Переместить название одного узла (подузла) TTreeView в Edit или ComboBox

← →
чайничек (2002-01-27 09:50) [0]

Ну нет ума! Не могу разобраться, а надо: выйти на узел в TTreeView и скопировать его название в Edit (а лучше ComboBox).
Кто может помогите!

← →
Набережных С. (2002-01-27 15:25) [1]

Edit1.Text:=TreeView1.Selected.Text; ComboBox1.Items.Add(TreeView1.Items[0].Text);

← →
чайничек (2002-01-27 16:12) [2]

Спасибо Вам большое. Буду пробовать. С уважением.

← →
чайничек (2002-01-27 16:40) [3]

Увы. . . Не получается. Может быть я что-то не дотумкиваю. Вы уж простите, но я совсем не программист (пока). Один к одному ввел вашу строку ComboBox1.Items.Add(TreeView1.Items[0].Text); - не реагирует никак. (Ну разве что у меня не ComboBox1 а ComboBoxEx1).

← →
Набережных С. (2002-01-27 18:34) [4]

К сожалению, мне неизвестен TComboBoxEx. Если он потомок TComboBox, то проверь:
1).Есть ли у TreeView item"ы.
2).Есть ли у Items[0] какой-нибудь текст.
3).Свойство Items у ComboBoxEx1 должно быть типа TStrings.

Попробуй вместо TComboBoxEx вставлять в TComboBox.

← →
чайничек (2002-01-27 19:22) [5]

В любом случае спасибо за оперативное участие. Все это есть. Что означает [0]? Почему не 15, например?

← →
чайничек (2002-01-27 19:35) [6]

С Edit сработало как огонь! Спасибо Вам большое! Если найдете время и поможете с ComboBox ( У меня "левый" Delphi6),то . . . В любом случае- я снимаю перед Вами шляпу и являясь специалистом в области юриспруденции, готов оказать помощь консультацией ( стем же участием, которое Вы проявили в отношении меня) по любому вопросу. Тусуюсь чаще на сайте Zakon.kuban.ru (естественно под другим Ником). Еще раз Вам огроиное спасибо.

← →
Набережных С. (2002-01-27 19:56) [7]

Ну, с благодарностью и шляпой вы явно переборщили, оно того не стоит. Что до предмета, то скиньте мне по почте свою прогу плюс исходник TComboBoxEx для более конкретного разговора.

← →
чайничек (2002-01-27 20:18) [8]

У меня еще проблемы с почтой так что скинуть к сожалению не смогу. Но я уже нашел ComboBox, поставил и разобрался он пишет именно то, что заключено в [...]. [0]он и пишет корневой, [15] -соответственно, но ... мне надо текущую. А благодарен я Вам вполне искренне; я 2 дня "мудохался". А все потому, наверное (ну кроме отстутствия ума), что книжки толковой нет по ObjectPaskal. Что порекомендуете?

← →
Набережных С. (2002-01-27 21:13) [9]

Мне трудно что-то посоветовать как пособие начального уровня - он меня интересовал еще при историческом материализме. В принципе, наверное, любая книга для начинающих в Delphi будет не хуже остальных.
По теме: Текущий, он же выбранный, он же выделенный, итем(объект TTreeNode) содержится в свойстве Selected. Свойство Items дает доступ к любому из итемов по его индексу. Если в данный момент
выделен элемент с индексом 5, то конструкции TreeView.Selected и TreeView.Items[5] абсолютно равнозначны. А 0 я использовал просто для примера. Так что можно написать и так:
Edit1.Text:=TreeView1.Items[0].Text; ComboBox1.Items.Add(TreeView1.Selected.Text);
если конечно элемент с индексом 0 существует.
До кучи: написав
TreeView.Selected := TreeView.Items[5];
мы программно выделим элемент с индексом 5.
P.S. Все-же жаль, что у Вас проблемы с почтой, форум - не слишком подходящее место для такого обсуждения. Если Вы решите вопрос с почтой, то будет гораздо удобней.

← →
чайничек (2002-01-28 16:50) [10]

Вчера закочилось Internet время. Все прочитал. Работаю. Еще раз Спасибо.

Переместить название одного узла (подузла) TTreeView в Edit или ComboBox Найти похожие ветки