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;
|