Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

Создание компонента   Найти похожие ветки 

← →
SergeyDon   (2002-10-16 10:33) [0]

Очень нужно, чтобы у TNode в компоненте TTreeView было ещё пару свойств:
А:integer;
B:string[40];

Можно это сделать быстро или надо переписывать весь компонент?
От кого лучше наследоваться?

если можно подробней и можно на мыло любую информацию
fsb@gppes.donetsk.ua

---

← →
MBo ©   (2002-10-16 10:36) [1]

у TTreeNode есть Data - указатель на что угодно

---

← →
Skier ©   (2002-10-16 10:37) [2]

>SergeyDon
TTreeNode.Data ?

---

← →
han_malign ©   (2002-10-16 10:46) [3]

И еще TreeView.SortType = [stData, stBoth] и TreeView.OnCompare

---

← →
SergeyDon   (2002-10-16 12:36) [4]

to MBo
можно подробней про "у TTreeNode есть Data" как им пользоваться (может есть пример)

---

← →
Skier ©   (2002-10-16 12:41) [5]

>SergeyDon


type

TYourRecord = packed record
yrField1 : Integer;
yrField2 : String;
end; //TYourRecord
PYourRecord = ^TYourRecord

var
AYourRecord : PYourRecord;

begin

AYourRecord := AllocMem(SizeOf(TYourRecord));
try
//.................
TreeNode.Data := AYourRecord;
//.................
with PYourRecord(TreeNode.Data)^ do begin
yrField1 := 0;
yrField2 := "Hello, world !";
end; //with
finally
FreeMem(AYourRecord, SizeOf(TYourRecord));
end; //try


---

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

Текущий архив: 2002.10.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c