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

Вниз

Вопрос по TTreeView   Найти похожие ветки 

 
SergeyVP   (2002-12-16 03:57) [0]

Мастера, помогите!
Мне нужно к полю TTreeNode.Data привязать конкретный тип, например TMyType. Конечно это можно сделать так TMyType(Item.Data), но тогда все замарочки по созданию и освобожденю этого указателя нужно обробатывать в событиях OnCreate/OnDestroy формы. Я хочу разгрузить главный модуль, тем что переопределить поле Data в TTreeNode на мой тип и инициализировать его в конструкторе TTreeNode.
Теперь вопрос: как мне правильно переопределить объекты TTreeView и TTreeNode что бы это сделать?
Буду благодарен за ответы.


 
msts   (2002-12-16 08:40) [1]

procedure TForm1.OnCreateNodeClass(Sender: TCustomTreeView;
var NodeClass: TTreeNodeClass);

У дерева есть событие OnCreateNodeClass (D6) в нем и присвой значение
NodeClass := TMyTreeNode где TMyTreeNode = class(TTreeNode)
ну далее как хочешь...
НО приведение типов делать все равно придется

procedure TForm1.OnChange(Sender: TObject; Node: TreeNode);
где TMyTreeNode(Node)

Сам не юзал так что пробуй


 
msts   (2002-12-16 08:44) [2]

Еще - если идти таким путем то и свойство Data использовать не надо прям у объекта и заводи данные


 
SergeyVP   (2002-12-16 11:28) [3]

Интересно....
Попробую в этом направлении поработать.



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

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

Наверх





Память: 0.55 MB
Время: 0.028 c
4-86226
Артём
2002-11-13 01:23
2002.12.26
Драйвера


3-85869
atmamont
2002-12-08 22:30
2002.12.26
dblookupcombo


7-86188
crush_fm
2002-10-09 22:32
2002.12.26
Температура процессора


3-85806
Smashich
2002-12-05 20:15
2002.12.26
выборка записей


1-85997
harismatik
2002-12-16 11:52
2002.12.26
Выбор узла в TTreeView





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский