| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание компонента [D5, WinXP]
SergeyDon © (2002-10-16 10:33:00)Очень нужно, чтобы у TNode в компоненте TTreeView было ещё пару свойств:
А:integer;
B:string[40];
Можно это сделать быстро или надо переписывать весь компонент?
От кого лучше наследоваться?
если можно подробней и можно на мыло любую информацию
fsb@gppes.donetsk.ua
Skier (2002-10-16 12:41:00) [1]
>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
SergeyDon (2002-10-16 12:36:00) [2]to MBo
можно подробней про "у TTreeNode есть Data" как им пользоваться (может есть пример)
han_malign (2002-10-16 10:46:00) [3]И еще TreeView.SortType = [stData, stBoth] и TreeView.OnCompare
Skier (2002-10-16 10:37:00) [4]>SergeyDon
TTreeNode.Data ?
MBo (2002-10-16 10:36:00) [5]у TTreeNode есть Data - указатель на что угодно
| |
