Подскажите как пользоваться TKOLTreeView.

← →
MMF (2003-02-27 11:14) [0]

Покажите пример добавления новых элементов в дерево. И еще вопрос: насколько много элементов может содержать дерево. Зараннее спасибо.

← →
blackalex (2003-02-27 13:19) [1]

1) Кусок из одной моей проги. tvRegSess - так называется мой TreeView. RootKey и SubKeySessions - глобальные переменные

2)Кажется 65536
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q182231

--------------------------------------------------------------
procedure TfrmMain.RefreshRegSession;
var
T: PStrList;
hReg : HKEY;
I: Integer;
begin
T := NewStrList ;
hReg := RegKeyOpenRead (RootKey, SubKeySessions);
if hReg <> 0 then begin
RegKeyGetSubKeys (hReg, T);
RegKeyClose(hReg);
end;
if T.Count > 0 then begin
for I := 0 to T.Count -1 do begin
tvRegSess.TVInsert( TVI_ROOT, 0, T.Items [I] );
//tvRegSess.TVInsert( TVh[I], TVI_LAST, "Hallo" );
// tvRegSess.TVExpand( TVh[I], TVE_EXPAND ) ;
end;
tvRegSess.TVItemVisible[ tvRegSess.TVRoot ] := True;
tvRegSess.TVSelected := tvRegSess.TVRoot;
end;
T.Free ;
end;
--------------------------------------------------------------

← →
MMF (2003-02-27 13:34) [2]

Подскажите как пользоваться TKOLTreeView. Найти похожие ветки