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 !!!!!