//--------------------------------------------------------------------------- TElTreeItem* TfrmObjectList::FindObjectByType(int type, void *obj) { for ( TElTreeItem* node = tvItems->Items->GetFirstNode(); node; node = node->GetNext()) if (!node->Parent && (node->Data == (void*)type)){ for (TElTreeItem* chield = node->GetFirstChild(); chield; chield = node->GetNextChild(chield)) if (chield->Data==obj) return chield; break; } return 0; }