Здравствуйте.
Создаю TreeView и заполняю его (Не ругайтесь, я не так давно начал изучать API):
Код:
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{ or TVS_EX_FADEINOUTEXPANDOS});
tvi.mask := TVIF_IMAGE or TVIF_TEXT or TVIF_SELECTEDIMAGE; //описание структуры смотри в MSDN
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.hInsertAfter := TVI_LAST;
tvins.hParent := htr[5];
TreeView_InsertItem(TV, tvins);
end;
получилось вот что:
TreeView.png
Но я не пойму как добавить в тот или иной узел, как узнать HTREEITEM "Главного узла № любой" и добавить или удалить?
В справку MSDN не отправляйте, на основе этой справки и работаю, но что-то не пойму.