Создание компонента

← →
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" как им пользоваться (может есть пример)

>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

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