Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-06-2005
Avatar de Crandel
[Crandel] Crandel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Parana, Argentina
Posts: 1.475
Poder: 23
Crandel Va por buen camino
Treeview y click derecho

Hola a todos,

Tengo un TTreeView, con varios items, cuando hago doble click sobre un de los items ejecuto una determinada acción, cuya acción depende del item seleccionado que lo tomo con ListaDominios.Selected. Hasta aca todo bien.

Esta misma acción y otras, quiero permitirlas mediante un TPopupMenu, que se despliega al hacer click con el boton derecho.

El problema surge que ListaDominios.Selected no me devuelve realmente el item seleccionado, en realidad no sobre el que hice click.

Es decir, esta un item seleccionado, luego hago click derecho sobre otro, el primero permanece con una línea de trazo alrededor y el segundo en negrita.

El ListaDominios.Selected me devuelve el valor del primero y no sobre el que yo quiero.

tengo la propiedad RightClickSelect en true.

Alguna sugerencia?
__________________
[Crandel]
Responder Con Cita
  #2  
Antiguo 08-06-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Me parece que se trata de un error en la componente. Puedes solventarlo obteniendo el nodo correcto en el evento OnMouseDown del TreeView:

Código Delphi [-]
var
  Node: TTreeNode;

begin
  Node := TreeView1.GetNodetAt(X, Y);
  if Node <> nil then
    ...
end;

// Saludos
Responder Con Cita
  #3  
Antiguo 08-06-2005
Avatar de Crandel
[Crandel] Crandel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Parana, Argentina
Posts: 1.475
Poder: 23
Crandel Va por buen camino
Gracias por la idea roman,

termine escribiendo

Código Delphi [-]
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TreeView1.Select(TreeView1.GetNodeAt(X, Y));
end;

y funcionó perfecto
__________________
[Crandel]
Responder Con Cita
  #4  
Antiguo 28-02-2008
alex_p8 alex_p8 is offline
Registrado
 
Registrado: feb 2008
Posts: 2
Poder: 0
alex_p8 Va por buen camino
Thumbs up

Cita:
Empezado por Crandel Ver Mensaje
Gracias por la idea roman,

termine escribiendo

Código Delphi [-]
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TreeView1.Select(TreeView1.GetNodeAt(X, Y));
end;

y funcionó perfecto
Acabo de probarlo y para refinarlo y no se salga una excepción cuando se
pincha en otra parte del treeView que no corresponde con nigún item he puesto esto:

Código Delphi [-]
if (TreeView1.GetNodeAt(X, Y) <> nil) then
      TreeView1.Select(TreeView1.GetNodeAt(X, Y));

Que por otra parte es exactamente lo que escribió Román (Me acabo de dar cuenta, lo siento)
Un saludo

Última edición por alex_p8 fecha: 28-02-2008 a las 12:08:22. Razón: Me doy cuenta de que he puesto lo mismo que roman
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 06:27:57.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi