Кол-во записей в заголовках веток dbTreeView

[Aleks_www]

Всем доброго времени суток!
Подскажите кто сталкивался с компонентами treeview, как можно отобразить в названии веток дерева, колличество соответствующих записей из другой таблицы. Сейчас на событие dxDBTreeView1SetDisplayItemText работает нижеприведенный код. Он отображает в ветках количество записей соответствующих keyfield в той же таблице из которой строится дерево. При событии dxDBTreeView1Click, происходит выборка записей из другой таблицы, поэтому надо чтобы и в ветках дерева отображалось количество соотествующих записей полю ID в таблице "TREETABLE" из подчиненной таблицы TABLE по полю ID_P.


procedure dxDBTreeView1SetDisplayItemText(Sen der: TObject;
var DisplayText: string);
var
ANode: TdxDBTreeNode;
begin
with Sender as TdxDBTreeView do
ANode := DBTreeNodes.GetDBTreeNode(GetKeyFie ld().Value);
if Assigned(ANode) then
DisplayText := Format('%s(%d)', [DisplayText, ANode.Count]);

end;

procedure dxDBTreeView1Click(Sender: TObject);
begin
pFIBDFindDevTree.close;
pFIBDFindDevTree.QSelect.SQL.Text:= 'select * from table where ID_P = '''+IntToStr(pFIBDTreeDev.FieldValu es['ID'])+''')';
pFIBDFindDevTree.QSelect.ExecQuery;
pFIBDFindDevTree.Open;
end;

Может кто то что то подобное уже делал и поделится своими мыслями)?

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор