Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Вниз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, ... которые также имеют дочерних "кнтролов" назовем их так)
но в любом случае спасибо за отклик значит уже не один на этом свете бьусь :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c