Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизСоздание компонента Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c