| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TTreeNode [D7, WinXP]

FaceToFace ©   (2005-02-15 13:09:00) 

Возможно ли элементу TTreeNode добавить что-то вроде свойства Tag?

---

FaceToFace   (2005-02-15 14:06:00) [1]

to stakan, Юрий Зотов
Спасибо большое. Оба примера кстати :) panov © Поле "Тема вопроса" не оформлено.

---

stakan   (2005-02-15 13:43:00) [2]


type
 PTreeRecord = ^TTreeRecord;
 TTreeRecord = record
   Tag: Integer;
   // другие поля
 end;
var
 TreeRecord: PTreeRecord;
begin
 ...
 New(TreeRecord);
 TreeRecord^.Tag := 1;
 TreeNode.Data := TreeRecord;
 ...
end;


---

Юрий Зотов   (2005-02-15 13:43:00) [3]

> FaceToFace   (15.02.05 13:33) [4]

var
 I: integer; // Любой целый тип длиной не более 4-х байт.
begin
 TreeNode.Data := Pointer(I);
 ...
 I := Integer(TreeNode.Data);
 ...

---

MetalFan   (2005-02-15 13:33:00) [4]

А еще удобнее (хотя кому как) создавать объект...

---

FaceToFace   (2005-02-15 13:33:00) [5]

не совсем понял, как это реализовывается.
Пример кода можно?

---

stakan   (2005-02-15 13:23:00) [6]

Обычно создают запись со всеми необх. полями вроде свойства Tag,
создают указатель на эту запись и этот указатель присваивают св-ву Data TTreeNode

---

Digitman   (2005-02-15 13:18:00) [7]

а зачем ? ведь есть же св-во TTreeNode.Data ?

---

Наверх