Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Переместить название одного узла (подузла) 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 время. Все прочитал. Работаю. Еще раз Спасибо.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.019 c
3-32119           KMZ                   2002-01-15 12:38  2002.02.11  
Привет всем !,народ помогите разобратся с проблемой


1-32279           XX                    2002-01-28 17:21  2002.02.11  
В созданном (Win)Help e неправильные символы


1-32286           avr555                2002-01-24 16:07  2002.02.11  
побитовое исключающее ИЛИ


3-32172           vovan13               2002-01-15 18:45  2002.02.11  
SQL-запрос на основе другого запроса


1-32229           hwber                 2002-01-26 15:04  2002.02.11  
QuickReport руссифмцировать Preview?