Recoger datos de un TreeView a un DBgrid

[cslbcn]

Hola! Espero que me podáis ayudar con este problemas. He intentado que me salga, de verdad, pero no hay manera, os explico.

Tengo un TreeView con unos Items dentro (Figura 1)


Figura 1

Cuando pulso dentro de TreeView, quiero que se me abra otro Form (Form2) y que en un DBgrid me muestre los datos del TreeView de esta manera (Figura 2)


Figura 2

Alguna idea?
Gracias de antemano

[tcp_ip_es]

Pero los datos que hay en el treeview los tienes en la base de datos no?? ya que sino un Dbgrid no te puede mostrar datos de un treeview asi por que si

[cslbcn]

Los datos estan en una base de datos, pero primero quiero hacerlo poniendo los items manualmente, sin que los recoja de la base de datos.

No hay manera de hacerlo sin bbdd??

[cslbcn]

EDITO: puede que me equivoque
es un StringGrid

[tcp_ip_es]

Entonces los datos los quieres pintar manualmente en el treeview y en el StringGrid???
Si es asi cuando pulses en el treeview recorrelo nodo a nodo y añadelo al stringgrid y muestra el formulario.... no se si es lo que quieres...

[cslbcn]

los datos en el treeview los introduzco manualmente. Cuando hago click en el treeview se me tiene que abrir el form2 con la parrila y dentro los datos del treeview que los recoge del treeview.

Lo que no me sale es como desplazar datos del treeview al grid.

[tcp_ip_es]

para pasar de un treeview a un stringgrid tendrás que aprender a utilizar los dos objetos mirate la ayuda de delphi o mirate por los foros código referente a los dos objetos...

treview
http://www.clubdelphi.com/foros/show...light=treeview

stringgrid

http://www.clubdelphi.com/foros/show...ght=stringgrid

hay que currárselo un poco

[*Caro*]

Hola cslbcn, tienes que recorrer tu TreeView y preguntar por el nivel si es 0 ira como encabezado de tu StringGrid y asi sucesivamente, te pongo un ejemplo de como mas o menos tendrías que hacerlo.

Código Delphi [-]
var
 i, aCol, ARow : Integer;
begin
 aCol := 0;
 ARow := 1;
 for i:=0 to TreeView1.Items.Count-1 do
  begin
   if TreeView1.Items[i].Level=0 then
    begin
     Inc(aCol);
     StringGrid1.Cells[aCol,0] := TreeView1.items[i].Text;
     ARow := 1;
    end
   else
    begin
     StringGrid1.Cells[aCol,aRow] := TreeView1.items[i].Text;
     Inc(aRow);
    end;
  end;
end;

Empezado por tcp_ip_es

hay que currárselo un poco

Una pregunta tcp_ip_es, que significa currárselo , suena un poco raro la palabrita.

Saluditos

[cslbcn]

entiendo. y de esta manera el grid del form2 recibirá los datos del treeview del form1?

[*Caro*]

Empezado por cslbcn

entiendo. y de esta manera el grid del form2 recibirá los datos del treeview del form1?

Solo tienes que hacer referencia al StringGrid del formulario del cual quieres llenar.

Código Delphi [-]
   ..............................
   .............................
     form2.StringGrid1.Cells[aCol,0] := TreeView1.items[i].Text;
     ARow := 1;
    end
   else
    begin
     form2.StringGrid1.Cells[aCol,aRow] := TreeView1.items[i].Text;
     Inc(aRow);
    end;
  end;//for
 form2.Show;

Saluditos

[cslbcn]

vale vale. ya lo entiendo.

Soy muy, pero que muy novato en delphi y me piden hacer cosas dificiles para mi, cuando aun no sé qué significa procedure... pero bueno.

muchas gracias por vuestra ayuda

[tcp_ip_es]

Currárselo significa trabajarselo o laburarselo , vamos que buscará un poco por su cuenta y no darselo todo hecho espero que te sirva la respuesta

Trabajar=Currar=Laburar

[*Caro*]

Empezado por tcp_ip_es

Currárselo significa trabajarselo o laburarselo , vamos que buscará un poco por su cuenta y no darselo todo hecho espero que te sirva la respuesta

Trabajar=Currar=Laburar

esta claro amiguito tcp , conste que no le he dado todo hecho, tenía que seguir currandosela .

Saluditos