![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Drag & Drop para obtenr nombre y ruta de archivo
Hola. Nunca he realizado esto y no logro entenderlo
![]() Quisiera arrastrar un archivo cualquiera, sea texto, video o imagen a un TImage y que la ruta de este, aparezca en un TEdit. Ayuuuuuuda!!! |
#2
|
||||
|
||||
¿Arrastrar texto o "lo que sea" a un TImage?
|
#3
|
||||
|
||||
Quise decir archivo de texto... es decir, cualquier archivo de cualquier extensión. No necesariamente a un TImage. Puede ser a un TPanel.
|
#4
|
||||
|
||||
Add ShellAPI and Messages to your project's uses:
Add a method to your form that handles the WM_DROPFILES message. For example, the following would be placed in the TForm1 declaration in the protected section: Drag 'n' drop are activated by calling: and deactivated by calling: It is normal to activate drag 'n' drop in the OnCreate event, and deactivate it in the OnClose or OnDestroy events: This first procedure will enable you to drop files one at a time:
|
#5
|
||||
|
||||
Antes de usar DragAcceptFiles y DragQueryFile deberías deshabilitar el filtro para los mensajes WM_DROPFILES y WM_COPYGLOBALDATA con la API ChangeWindowMessageFilterEx.
Saludos. |
#6
|
||||
|
||||
Cita:
No es complicado. Entendiendo los pasos, con unas pocas líneas se puede conseguir. Necesitas un componente que reciba los ficheros; En este ejemplo he usado un panel, pero puede ser un TImage, el formulario completo,... En este caso admite varios ficheros; En ese caso llamará varias veces al procedimiento AddFiles. Añado el ejemplo completo al FTP del Club. He colocado un panel en el formulario y le he llamado pnlArrastrar. ![]() Y te adjunto el código necesario con los comentarios necesarios.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. Última edición por Neftali [Germán.Estévez] fecha: Hace 4 Semanas a las 09:44:35. |
#7
|
|||
|
|||
![]() Aunque ya se ha respondido, te amplio algo que yo utilizo, por si te esclarece más, que yo la primera vez me costó un poco:
Por ejemplo, para que el receptor del drag-and-drop sea un tmemo en tu form, puedes ampliar la clase TMemo con
y estos metodos escribirlos:
con esto, cualquier tmemo que incluyas en tu form podra ser receptor de drag and drop, por ejemplo para cargar en el el contenido del fichero si es de tipo texto. Tambien podrías cambiarlo para aplicarlo sobre un tedit y que el receptor fuera el tedit.... Última edición por Neftali [Germán.Estévez] fecha: Hace 4 Semanas a las 09:49:14. Razón: Corregir la visualización del código |
#8
|
|||
|
|||
Neftali, hemos 'chocado'.
Pero ¿porque no se ve mi codigo bien? cuando he previsualizado lo veía bien antes de enviarlo..... |
#9
|
||||
|
||||
Si, nos hemos pisado los mensajes..
Cita:
Es un error antiguo de vBulletin. A veces cuando se usa la vista previa, se hace un lío con las etiquetas...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#10
|
|||
|
|||
gracias, maestro.
Última edición por Neftali [Germán.Estévez] fecha: Hace 4 Semanas a las 10:06:02. |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Comprobar el nombre de la imagen en un drag and drop. | jjuguera | Varios | 7 | 16-01-2020 22:36:23 |
Drag and Drop con archivo adjunto de outlook | izia | Varios | 7 | 24-02-2010 08:29:28 |
Drag&Drop para clasificar Imagenes | gcaffe | OOP | 2 | 22-04-2007 21:43:16 |
Drag&Drop de un archivo a mi aplicacion... | Ascii1457 | Varios | 6 | 15-10-2006 16:10:09 |
Ruta y nombre de archivo INI | jfranco | Varios | 2 | 27-02-2004 16:44:23 |
![]() |
|