Динамический TreeView

[DennerV]

У меня TreeView стороится динамически из аксеса, помоите кто - дибудь динамически сделать действия по выбору ветки.

[DennerV]

Я уже сам разобрался.

[girz]

Сообщение от DennerV

Я уже сам разобрался.

Поделись кодом.
А то вообще не получается связать, при выборе в TreeView вкладок должны отображаться определеные таблицы в dbgrid.

[DennerV]

У меня вот так:
Подключаешь аксес, и далие -
2-я нумерация CompanyID простой номер по порядку, ParentID номер мотеринской ветки.

Построение:
procedure TForm1.FormCreate(Sender: TObject);
var Roogt :TTreeNode;
i:Integer;
begin
Flag:=False;
For i:=1 to 100 do
TrackList[i]:='';
i:=0;
WebBrowser1.Navigate(GetCurrentDir+ '\Data\Book\fon\main.html');
While ADOTable1.Eof=False do
Begin
If ADOTable1CompanyID.AsInteger=ADOTab le1ParentID.AsInteger Then
Roogt := TreeView1.Items.Add(nil,ADOTable1Na me.AsString)
else TreeView1.Items.AddChild(Roogt,ADOT able1Name.AsString);
TrackList[i]:=ADOTable1Track.AsString;
i:=i+1;
ADOTable1.Next;
end;

Девствие:
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var Roogt :TTreeNode;
i:Integer;
begin
i:=0;
While TrackList[i]<>'' Do
Begin
If TreeView1.Items.Item[i].Selected=True Then
WebBrowser1.Navigate(ExtractFilePat h(paramstr(0)) + TrackList[i]);
i:=i+1;
end;
end;