Drag&Drop !!!

[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