Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.55 MB
Время: 0.035 c
4-92799
DeMoN-777
2002-09-16 10:14
2002.10.28
Програмное нажатие кнопки в чужом окне


14-92730
Anatoly Podgoretsky
2002-10-09 08:45
2002.10.28
Именинники 9 октября


1-92555
ProNix
2002-10-16 14:33
2002.10.28
Invalid Pointer Operation


1-92536
dens
2002-10-16 10:05
2002.10.28
Получение содержимого массива по ключу


14-92677
Кот Бегемот
2002-10-07 17:47
2002.10.28
СРОЧНО!!! Кто из Харькова ???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский