Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

Insert/Delete/Edit для TreeView   Найти похожие ветки 

 
Aric   (2002-07-16 12:01) [0]

Приветствую!
Проблема собственно вот в чем:
Есть два TreeView, и три кнопки соответственно Вставка узла, удаление и редактирование, причем редактирование - это не изменение названия узла, а изменение связанных с ним данных из соответствующих СтрингЛистов, для каждого их два.
Нужно отслеживать, на каком именно TreeView, 1 или 2-м, нажаты эти кнопки. ActiveControl не подходит, т.к. в момент нажатия активен контрол кнопки, как я понимаю.
И ваще, буду признательна за пример работы с TreeView, со вставкой и удалением узлов (только не по клавишам), хотя бы...


 
Song   (2002-07-16 12:09) [1]

Вообще по-моему легче расположить их на TabSheet"ах, тогда будет всё логичней.
А если хотите как Вы задумали, тогда можно сделать флажок, который будет показывать какой TTreeView выбран и изменять его на TTreeView.onEnter


 
Skier   (2002-07-16 12:10) [2]

>Aric
Можно "запоминать" какое именно дерево активно в тот момент
когда дерево получает фокус и записывать указатель на текущее дерево во временную переменную.

А в момент нажатия кпонки смотреть - что во временной переменной



 
Digitman   (2002-07-16 12:13) [3]

А каким образом ты умудрилась сделать TTreeView контейнером для кнопок ? Или они просто визуально расположены в зоне клиентского окна компонента TreeView ?


 
TTCustomDelphiMaster   (2002-07-16 12:14) [4]

Заведи переменную
LastActivTreeView: TTreeView;
и изменяй ее значение допустим по onEnter


 
Aric   (2002-07-16 12:22) [5]

Спасибо всем за ответы! Отдыхать, видимо, надо больше. С флпгом все получилось, терь еще вопрос: при смене текущего узла надо менять инфу в Едит-ах, повесила вроде на Changing, но работает как-то криво(


procedure TForm1.TreeView2Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
if TreeView2.SelectionCount <> 0
then
begin
Edit2.Text := TreeView2.Selections[0].Text;
Edit1.Text := St_n2[TreeView2.Selections[0].Index];
Edit3.Text := St_k2[TreeView2.Selections[0].Index];
end;
end;


 
Skier   (2002-07-16 12:26) [6]

>Aric
Лучше повесь на OnChange


 
Aric   (2002-07-16 12:39) [7]

В общем вот это TreeView2.Selections[0].Index; не работает, вернее работает не так, как мне б хотелось. Там хранится индекс в списке выделения, а мне нужен индекс выделенного узла. Помогите!


 
Skier   (2002-07-16 12:41) [8]

>Aric

TreeView2.Selected ?


 
Aric   (2002-07-16 12:43) [9]

Все, вопросы все сняты. Всем спасибо.



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

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

Наверх





Память: 0.46 MB
Время: 0.006 c
1-95339
Leny
2002-07-18 07:53
2002.07.29
Изменить цвет текста


1-95445
esprit_bel
2002-07-17 04:53
2002.07.29
Дирректория


14-95553
SPeller
2002-07-04 04:43
2002.07.29
Где есть DelphiX для Дельфи 6 ??


3-95272
tatiana
2002-07-09 14:01
2002.07.29
Объединение запросов TQuery


3-95191
Pro
2002-07-05 13:28
2002.07.29
помогите несложный запрос составить





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский