Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.022 c
3-92406
sndanil
2002-10-05 16:33
2002.10.28
Проблема с производительностью в Interbase


8-92619
MJH
2002-05-11 19:24
2002.10.28
Equalizer / Эквалайзер / NitroAmp 0.74XPbeta1


14-92702
Wonder
2002-10-08 12:33
2002.10.28
Нервным, с больным сердцем и детям не смотреть!!!


1-92421
Дмитрий К.К.
2002-10-17 07:57
2002.10.28
Поменять цвет любого оконного контрола


1-92611
Cker
2002-10-12 23:58
2002.10.28
А как-бы мне строку, введенную в edit преобразовать в unicode???