FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Selección en TShellTreeView
Hola amigos.
Utilizo un TShellTreeView de la paleta Samples, para acceder a las carpetas del disco duro. Necesito que el evento onClick del ShellTreeView se ejecute únicamente si la carpeta seleccionada es la última de la ruta en el disco duro, es decir después del último backslash(\) y no al expandir los nodos o al hacer click sobre otra carpeta, que no sea la última. Ejemplo C:\Usuarios\Batman\Mis Imágenes\Cumpleaños de Robin <<< Sólo en esta Carpeta Muchas gracias y saludos a todos |
#2
|
||||
|
||||
Hola Iván.
No creo factible predeterminar el evento para que se dispare sólo ante determinada condición ajena a la pulsación del ratón. Sin embargo, sí es posible evaluar dentro del evento OnClick del TShellTreeView la condición que se te ocurra. Dado que el componente TShellTreeView reconoce los archivos .ZIP y .CAB como carpetas no podemos usar las propiedades Folder y SubFolders de la carpeta seleccionada para hacer lo que buscas ya que al evaluar no mostraría como última a aquellas carpetas que contuvieran esos tipos de archivos. Esto implica crear algo de código adicional, una pequeña función que nos diga si al menos existe una carpeta hija de la actual. El código:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
Muchas gracias por responder Daniel.
Probaré tu código y te comento. Un abrazo |
#4
|
||||
|
||||
Estimado Daniel:
El código realiza siempre la función de seleccionar la última carpeta. Le eliminé la opción de seleccionar los archivos, porque me interesa que sólo se puedan seleccionar carpetas. Sin embargo si por error o voluntariamente se selecciona por ejemplo mi PC, Panel de control u otra de las carpetas del sistema y después alguna carpeta de archivos, genera el siguiente error: Debugger Exception Notification --------------------------- Project ImageViewer.exe raised exception class EThread with message 'Cannot terminate an externally created thread'. Imagino que Windows está ejecutando un Thread basado en el código, buscando la última carpeta del directorio seleccionado y no permite que se seleccione otra carpeta. ¿Es posible evitar este error? Saludos |
#5
|
||||
|
||||
Hola Iván.
He estado haciendo varias pruebas siguiendo las acciones que mencionas, también comentando el código del evento OnCreate, y no logro que se produzca ninguna excepción. Te adjunto el código de prueba para descartar cualquier posibilidad. Tal vez sea debido a la versión de Delphi o Windows, en mi caso es Windows 7 32bits y Delphi 7, comentame si hace lo mismo con el código que te estoy adjuntando. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 25-09-2014 a las 03:04:43. |
#6
|
||||
|
||||
Estimado Daniel:
Gracias por responder. El error era culpa mía porque tenía seleccionada la propiedad AutoRefresh:= True, al ponerla en False se corrigió el problema y funcionó perfecto. Muchas gracias por todo Saludos Última edición por radenf fecha: 24-09-2014 a las 22:49:04. |
#7
|
||||
|
||||
Hola Iván.
Me alegro , pensé que el problema podría ser ocasionado por las diferentes versiones de Windows y en ese caso ya estaría pensando en cambiar de componente. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problema copiando de un TShellTreeView a un Treeview | harpo | Varios | 3 | 20-09-2008 20:42:24 |
Como instalar tshellTreeView | k_rito | API de Windows | 8 | 01-02-2007 22:40:51 |
acerca del componente TShellTreeView | fer21unmsm | Varios | 6 | 28-01-2006 18:30:34 |
Seleccion en tTreeView | Investment | OOP | 2 | 02-07-2004 09:36:32 |
una seleccion | YolandaM | Impresión | 2 | 04-10-2003 20:11:59 |
|