estoy diseñando "cgi's (*.exe)" con delphi y estoy pensando en programar un arbol, pero no se como hacerlo porque no deja poner componentes visibles en el webdispatcher, solución, pues diseñarlo en tiempo de ejecución:
un primer avance es el siguiente soci@s:
Código PHP:
procedure TwmExpediente.wmExpedientewaarbolAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
MyTreeNode1: TTreeNode;
TreeView1: TTreeView;
MemStr: TMemoryStream;
begin
// no se si es el primero o el segundo
TreeView1:=TTreeview.Create(nil);
// TreeView1:=TTreeview.Create(self);
TreeView1.Items.Clear; // eliminamos nodos existentes
MyTreeNode1 := TreeView1.Items.Add(nil, 'RAIZ'); //creamos nodo raiz
TreeView1.Items.AddChild(MyTreeNode1,'NODOHIJO1'); // agregamos un nodo hijo1
// situamos MyTreeNode1 en nodohijo1 y agregamos nodos hijos (a,b,c,...)
MyTreeNode1 := TreeView1.Items[1];
TreeView1.Items.AddChild(MyTreeNode1,'NODOHIJO1a');
TreeView1.Items.AddChild(MyTreeNode1,'NODOHIJO1b');
TreeView1.Items.AddChild(MyTreeNode1,'NODOHIJO1c');
{
tenemos el siguiente arbol que es el que quiero
a partir de Items[1] tiene que crecer el arbol hasta el "infinito"
+ RAIZ Items[0]
|-NODOHIJO1 <- Items[1]
|-NODOHIJO1A Items[2]
|-NODOHIJO1B Items[3]
|-NODOHIJO1C Items[4]
}
MemStr := TMemoryStream.Create;
try
//lo guardamos a un stream y lo devolvemos
TreeView1.SaveToStream(MemStr);
MemStr.Position := 0;
Response.ContentStream := MemStr;
Response.SendResponse;
finally
MemStr.Free;
end;
// Response.content := 'AQUI QUIERO VISUALIZAR EL ARBOL Y NO SE COMO HACERLO';
TreeView1.Free;
end;
"a ver si saben como puedo sacar el arbol de sus raices", gracias !!!!
