var
tvins : tagTVINSERTSTRUCT;
htr :
array
of
HTREEITEM;
tvi : tagTVITEM;
I :
Integer
;
..........
TV := CreateWindowEx(
0
, WC_TREEVIEW,
'1'
, WS_CHILD
or
WS_VISIBLE
or
TVS_SHOWSELALWAYS
or
TVS_HASBUTTONS
or
TVS_HASLINES
or
TVS_LINESATROOT ,
0
,
0
,
250
,
300
,Wnd, TVID, HInstance,
nil
);
SendMessage(TV, TVM_SETEXTENDEDSTYLE,
0
, TVS_EX_DOUBLEBUFFER
);
tvi
.
mask := TVIF_IMAGE
or
TVIF_TEXT
or
TVIF_SELECTEDIMAGE;
for
I :=
0
to
9
do
begin
tvi
.
pszText :=
PChar
(
'Главный узел № '
+ IntToStr(I));
tvins
.
item := tvi;
tvins
.
hInsertAfter := TVI_LAST;
tvins
.
hParent := TVI_ROOT;
SetLength(htr, length(htr) +
1
);
htr[i] := TreeView_InsertItem(TV, tvins);
end
;
for
I :=
0
to
5
do
begin
tvi
.
pszText :=
PChar
(
'Дочерний item № '
+ IntToStr(I));
tvins
.
item := tvi;
tvins
.
hParent := htr[
5
];
TreeView_InsertItem(TV, tvins);
end
;