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;