Crear Un Object Tree View

[esocrates]

Hola xEsk:
Gracias por responder.Lo que no sé es dónde se escribe este segmento de código.

Código Delphi [-]
procedure TForm1.AddSubControls(ParentNode: TTreeNode; ParentControl: TControl);
var
  n: Integer;
  lNode: TTreeNode;

begin
  if ParentControl is TWinControl then
    for n:=0 to TWinControl(ParentControl).ControlCount - 1 do
      begin
        lNode:=TreeView1.Items.AddChild(ParentNode, Format('%s: %s', [TWinControl(ParentControl).Controls[n].Name, TWinControl(ParentControl).Controls[n].ClassName]));
        AddSubControls(lNode, TWinControl(ParentControl).Controls[n]);
      end;
end;

Un saludo

[dec]

Hola,

Ese código es la implementación del método "AddSubControls()" de la clase "TForm1". Eso es lo que puede verse. Así que ese código ha de ir en la "implementation" de la unidad en que se declare la clase a la que pertenece y el mismo método.

Código Delphi [-]
unit Unit1;

interface

// Esta es la interface de esta unidad, aquí vamos a declarar
// la clase TForm1, que cuenta con el método "AddSubControls()"

uses
  Forms;

type
  TForm1 = class(TForm)
  private
    procedure AddSubControls(ParentNode: TTreeNode; ParentControl: TControl);
  end;

implementation

// Y aquí está la implementación de la clase TForm1 declarada en la interface
// Aquí se implementa el método "AddSubControls()" de la clase TForm1

procedure TForm1.AddSubControls(ParentNode: TTreeNode; ParentControl: TControl);
var
  n: Integer;
  lNode: TTreeNode;

begin
  if ParentControl is TWinControl then
    for n:=0 to TWinControl(ParentControl).ControlCount - 1 do
      begin
        lNode:=TreeView1.Items.AddChild(ParentNode, 
         Format('%s: %s', [TWinControl(ParentControl).Controls[n].Name, 
          TWinControl(ParentControl).Controls[n].ClassName]));
        AddSubControls(lNode, TWinControl(ParentControl).Controls[n]);
      end;
end;

end.