Arrastrar y soltar un archivo sobre la aplicación

[santus]

yo lo hice para abrir un archivo rtf y arrastrarlo a un richview.

En la seccion de "private" agrega este procedimiento.

  private
    procedure WMDropFiles(var Msg: TWMDropFiles); message M_DROPFILES;
 
  ...
 
procedure TfMain.WMDropFiles(var Msg: TWMDropFiles);
var
  CFileName: array[0..MAX_PATH] of Char;
  RutaArchivoTemp : String;
begin
  try
    if DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > 0 then
    begin
      sbDocumento.Panels[0].Text := 'Archivo '+CFileName;
      if extraerTextoWord(CFileName,RutaArchivoTemp) then begin // aca convierte de word a RTF.
        reDocumento.lines.LoadFromFile(rutaArchivoTemp);
        btnIniciarProceso.Enabled := True;
      end;
      Msg.Result := 0;
    end;
  finally
    DragFinish(Msg.Drop);
  end;
end;

fijate si esto te sirve. Muchos saludos.

[santus]

ahh

falto esto de registrarlo.

 
procedure TfMain.FormCreate(Sender: TObject);
begin
    DragAcceptFiles(Self.Handle, true);
end;

[[escafandra]]

Muchas gracias por vuestras rápidas respuestas. La solución en C++Builder es esta:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  // Para aceptar arrastrar archivos.
  DragAcceptFiles(Handle,true);

  // Asignación del procesador de mensajes para la aplicación y sus ventanas
  Application->OnMessage  = AppMessage;
}

// Procesar los mensajes de la aplicación
void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
  // Procesar el mensaje  WM_DROPFILES, aquí o en otra función a parte...
  if(Msg.message == WM_DROPFILES){
      char archivo[MAX_PATH];
      int n = DragQueryFile((HDROP)Msg.wParam, 0, archivo, sizeof(archivo));
      if(n>0) Procesar(archivo); // Funcion que procesa el archivo
      DragFinish((HDROP)Msg.wParam);
      Handled = true;
   }
}

Saludos.

[Negriz]

oye encontre un componente, aunque ya solucionaste tu problema depronte te ayude en el futuro:

http://cc.codegear.com/Item/23823

[[escafandra]]

Muchas gracias Negriz. Voy a mirarlo, nunca está de mas el exceso de información y de herramientas.

Saludos

[[escafandra]]

He encontrado otra forma de hacer lo mismo, aquí tenemos un ejemplo: http://cc.codegear.com/item/15716