Object TreeView

← →
Silver_ (2003-04-03 15:19) [0]

Ребята кто-нить занимался этим т.е. само сабой рекурсивно пробежаться по контролам усё кодать в ...

если у кого есть киньте в меня кодом ПЛиииЗ

← →
MBo © (2003-04-03 15:42) [1]

Читай Чехова - научишься русскому языку.
Тогда и вопрос сможешь прилично задать

← →
Silver_ (2003-04-10 10:46) [2]

подправим
усё кодать в ... = всё кидать в TTreeView

P.S. к о дать чисто орфографическая ошибка :(

← →
evvcom © (2003-04-10 11:07) [3]

И все равно с русским языком у Сильвера напряг. Непонятно что нужно? Что значить пробежаться по всем контролам и все кидать в TreeView?
А... кажется уловил. По всем дочерним Control формы и далее дочерним от этих Control? Ну и какие проблемы тогда? Используй типа:
procedure ControlToTreeNode(Control: TWinControl; Node: TTreeNode); var i: Integer; child: TTreeNode; begin for i := 0 to Control.ControlCount - 1 do begin child := TreeView.Items.AddChild(Node, Control.ClassName); if Control is TWinControl then ControlToTreeNode(Control.Controls[i], child); end; end;
Код не отлаживал, поэтому может и закрался какой-нибудь глюк, но вроде все так.

← →
Silver_ (2003-04-10 11:34) [4]

Я думал меня поймут уже с темы вопроса "Object TreeView" т.е. нужен его аналог
- все контролы
- некоторые свойства этих контролов (типа Columns, Fields, ...)

а еще лучше если можно было бы вызвать стандартный :)
типа ShowObjectTreeview(Parent: TWinControl);
где Parent контрол с которого все и начинается

> evvcom © (10.04.03 11:07)

из твоего примера чувсвую что тока все контролы покажет но не И их своиства (типа Columns, Fields, ... которые также имеют дочерних "кнтролов" назовем их так)

но в любом случае спасибо за отклик значит уже не один на этом свете бьусь :)

Object TreeView Найти похожие ветки