Crear Un Object Tree View

[[xEsk]]

Hola esocrates,

Añade:

Código Delphi [-]
procedure AddSubControls(ParentNode: TTreeNode; ParentControl: TControl);

arrriba en las declaraciones del TForm:

Ejemplo:

Código Delphi [-]
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
  private
    procedure AddSubControls(ParentNode: TTreeNode; ParentControl: TControl);
  public
    { Public declarations }
  end;

Si lo pones en "Private", este procedure será sólo visible desde este "Form", si lo metes en "Public" entonces será visible para el resto de unidades (que conozcan a esta UNIT).

Cualquier otra duda, ya sabes.

Saludos.