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 |
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 :) |
Muchas gracias por responder Daniel.
Probaré tu código y te comento. Un abrazo |
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 |
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 :) |
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 |
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 :) |
La franja horaria es GMT +2. Ahora son las 07:23:28. |
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