Drag&Drop !!!

[rafstyle]

Hola! Si habéis andado por el chat ya habréis notado lo pesao que soy con lo del DragDrop! Si alguien dispone de un par de minutillos le pediría que me paste un ejemplete de , p.ej., cómo abrir un fichero de texto en un Memo arrastrandolo desde, p.ej., el escritorio.

Gracias.

[__cadetill]

para utilizar el Drag&Drop, yo te aconsejo que te instales los componentes Drag&Drop que puedes encontrar en la Comunity o en mi web en Delphi-WinZLB. Este trae ejemplos y, sino, yo lo tengo implementado en el propio WinZLB que trae codigo fuente

[anibalnuma]

Esto te servirà para el caso en concreto que pides:

En el OnCreate de la form pones:

DragAcceptFiles(handle,TRUE) //Hace que la forma acepte archivos

En la sección private pones:

procedure OnDragDrop(var msg:TWMDropFiles);message WM_DROPFILES;

Y en la implementación:

procedure TForm1.OnDragDrop(var msg:TWMDropFiles);message WM_DROPFILES;
var
archivo:array[0..MAX_PATH] of char;

begin
DragQueryFile(msg.drop,0,archivo,sizeof(archivo));
try
Memo1.Lines.LoadFromFile(String(archivo));
except
MessageBox(handle,'No pude abrir el archivo',nil,MB_ICONERROR);
end;
DragFinish(msg.drop);
end;

[Novás]

He probado el código de anibalnuma y al intentar compilar me da el siguiente error...

Unknown directive 'message'

A que puede ser debido

[u1025425]

Creo que debes añadir la unit messages al uses (el primero).

[Trigger]

Espero que esto te sirva ...

http://www.innotts.co.uk/zephyr/drag.html

[roman]

Empezado por Novás

Unknown directive 'message'

A que puede ser debido

En la implementación del método:

Código Delphi [-]
procedure TForm1.OnDragDrop(var msg:TWMDropFiles);message WM_DROPFILES;

sobra la parte después del punto y coma.

// Saludos