Ir al contenido


Foto

Drag & Drop interactuando con el explorador de windows


  • Por favor identifícate para responder
1 respuesta en este tema

#1 razadi

razadi

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 681 mensajes
  • LocationMéxico D.F.

Escrito 24 septiembre 2009 - 08:29

Que tal comuneros haciendo un poco de eco de enecumene aquí dejo un ejemplo simple de Drag & Drop con el explorador de windows, espero les sirva, saludos.

Primero hay que agregar el unit "ShellApi", poner un TListBox y hacer lo siguiente:

Declara este procedure en la seccion private de tu form



delphi
  1. procedure WMDropFiles (var Msg: TWMDropFiles); message WM_DropFiles;



y su implementation:



delphi
  1. procedure TForm1.WMDropFiles (var Msg: TWMDropFiles);
  2. var
  3.   aName: array [0..Max_Path] of char;
  4.   iFileCount,i: integer;
  5. begin
  6.   FileCount := DragQueryFile(Msg.Drop,$FFFFFFFF,aName,MAX_PATH);
  7.   for i := 0 to iFileCount-1 do begin
  8.     DragQueryFile(Msg.Drop,i,aName,MAX_PATH);
  9.     ListBox1.Items.Add(aName);
  10.   end;
  11.   DragFinish(msg.Drop);
  12. end;



Este código va en el OnCreate de la form:



delphi
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. begin
  3.   DragAcceptFiles(Handle,True) ;
  4. end;



Es algo sencillo como antes dije pero espero les sirva, saludos

  • 0

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 24 septiembre 2009 - 09:22

Excelente aportación amigo (y) :D
  • 0




IP.Board spam blocked by CleanTalk.