Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Problema con treeView
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Problema con treeView

Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
mofongo
Excelente usuario


Registrado: Aug 03, 2007
Mensajes: 22

Asunto: Problema con treeView Responder citando

hola, tengo un problema con un treeview, tengo varios nodos, y no se como hacer para que cuando yo pulse sobre uno de ellos, pues llamar a un formulario, Listview, Panel, etc... algo asi...como ago esto...

saludos...
MensajePublicado:
Mar Sep 11, 2007 8:03 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Problema con treeView Responder citando



Anuncios



mofongo escribió:
hola, tengo un problema con un treeview, tengo varios nodos, y no se como hacer para que cuando yo pulse sobre uno de ellos, pues llamar a un formulario, Listview, Panel, etc... algo asi...como ago esto...

saludos...



Una forma sencilla, si como discriminante vas a utilizar el texto que aparece en el nodo es, en el evento "OnClick" del TreeView, utilizar este código:

Código:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
if (TreeView1.Selected.Text = 'Facturas') then
begin
   application.createform(TFormFacturas, FormFacturas);
   FormFacturas.showmodal;
end;
if (TreeView1.Selected.Text = 'Albaranes') then
begin
   application.createform(TFormAlbaranes, FormAlbaranes);
   FormAlbaranes.showmodal;
end;

end;

MensajePublicado:
Mie Sep 12, 2007 2:13 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Propiedad AbsoluteIndex del TreeView Responder citando

También puedes utilizar la propiedad "AbsoluteIndex" del TreeView que te devuelve un entero con un número único por cada nodo y cada subnodo, empieza por cero y va sumando desde el primer nodo (pasando por todos los subnodos).

Código:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  case TreeView1.Selected.AbsoluteIndex of
    0 :
    begin
      ShowMessage ('Seleccionado elmento 0');
    end;
    1 :
    begin
      ShowMessage ('Seleccionado elmento 1');
    end;
    2 :
    begin
      ShowMessage ('Seleccionado elmento 2');
    end;
    3 : begin
      ShowMessage ('Seleccionado elmento 3');
    end;
  else
    ShowMessage('Seleccionado elemento (no en case): ' +
        IntToStr(TreeView1.Selected.AbsoluteIndex));
  end;
MensajePublicado:
Mie Sep 12, 2007 2:22 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Evento OnChange en vez de OnClick Responder citando

Si utilizas el evento OnClick, ten en cuenta que sólo te servirá si el usuario hace clic con el ratón en un nodo, pero no te servirá si el usuario se mueve con las teclas de cursor (con el teclado). En este caso puedes utilizar el evento "OnChange", en vez del "OnClick".
MensajePublicado:
Mie Sep 12, 2007 2:25 pm
Top of PageVer perfil de usuario
mofongo
Excelente usuario


Registrado: Aug 03, 2007
Mensajes: 22

Asunto: Responder citando

Gracias alonsojpd, me a resultado

salu2s
MensajePublicado:
Jue Sep 13, 2007 7:24 am
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A