| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

MMF ©   (2003-02-27 11:14:00) 

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

---

MMF   (2003-02-27 13:34:00) [1]

>blackalex © (27.02.03 13:19)
Спасибо.

---

blackalex   (2003-02-27 13:19:00) [2]

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;
--------------------------------------------------------------

---

Наверх