crear un arbol con Delphi

[davidvamo]

Muy buenas geni@s ...

mi duda es la siguiente: estoy creando cgi's (Web Server Application) con Delphi 5 y tengo pensado de crear un árbol.

PROBLEMA: no acepta componentes visuales, por lo tanto tengo que crear todo en modo de ejecución!!! :-p

mirense este código (los expertos en delphi ) y diganme donde puedo tener el siguiente fallo:

Internal Server Error 500

--------------------------------------------------------------------------------
Exception: EInvalidOperation
Message: Control '' has no parent window


el código es el siguiente:

Código PHP:

  procedure TwmExpediente.wmExpedientewaarbreAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  MyTreeNode1: TTreeNode;
  TreeView1: TTreeView;
begin
  TreeView1:=TTreeview.Create(self);
 
  with TreeView1.Items do
  begin
    Clear; // eliminamos nodos existentes
    MyTreeNode1 := Add(nil, 'RAIZ');
    // agregamos un nodo hijo
    AddChild(MyTreeNode1,'NODOHIJO1');
 
    // situamos MyTreeNode1 y agregamos nodos hijos
    MyTreeNode1 := TreeView1.Items[1];
    AddChild(MyTreeNode1,'NODOHIJO1a');
    AddChild(MyTreeNode1,'NODOHIJO1b');
    AddChild(MyTreeNode1,'NODOHIJO1c');
 
    {
    tenemos el siguiente arbol
      + RAIZ
      |-NODOHIJO1
       |-NODOHIJO1A
       |-NODOHIJO1B
       |-NODOHIJO1C
    }
  end;
  Response.content := 'AQUI QUIERO VISUALIZAR EL ARBOL Y NO SE COMO HACERLO';
  TreeView1.Free;
end; 
   

pueden probarlo en cualquier delphi (crean un formulario, un treeview y un boton, en el evento onclick del boton copian el código y verán que quiero hacer a trabés de internet.)


GRACIAS !!!!!