FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Arrastrar hacia el form
Pues, eso estuve buscando la forma de como arrastrar elementos del escritorio de windows o de una carpeta a un componente en mi form.
Por ejemplo: arrastrar una imagen a un TImage. ¿Como podria hacerlo y como capturo la direccion del archivo que arrastras? Salu2 |
#3
|
||||
|
||||
saludos, espero que te sirva esto que te voy a explicar, mira,
1- Coloca esto debajo del private: Código:
... private { Private declarations } procedure CapturaMsgDropFile(var Msg: TWMDropFiles); message WM_DROPFILES; ... Código:
... uses ShellApi; procedure TForm1.CapturaMsgDropFile(var Msg: TWMDropFiles); var fCount, i: Integer; fName: array[0..255] of Char; begin fCount := DragQueryFile(Msg.Drop, $FFFFFFFF, fName, 1); for i := 0 to fCount -1 do begin DragQueryFile(Msg.Drop, i, fName, sizeof(fName)); ShowMessage(fName); end; DragFinish(Msg.Drop); end; ... Código:
DragAcceptFiles(Handle, true); saludos aeff!! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Arrastrar imagen | david.rguez | Gráficos | 6 | 05-03-2007 14:47:46 |
Arrastrar documento hacia icono ¿Cómo? | rafadf | Varios | 3 | 25-01-2007 12:20:56 |
arrastrar y muliseleccion | palets | Gráficos | 2 | 06-06-2006 23:35:31 |
Arrastrar Registro | vtdeleon | SQL | 8 | 13-08-2005 00:51:17 |
Arrastrar y Soltar!!! | chechu | Varios | 6 | 21-10-2004 20:26:35 |
|