2 replies to this topic

[enecumene]

Pues esp amigos, tengo problemas con un drag & drop que estoy realizando (eso me pasa por dejar delphi un tiempo ) con más de un archivo, estoy intentado arrastrar archivos desde el explorador de windows a un listbox en Delphi, hasta ahí todo bien pero si arrasto tres archivo por ejemplo me repite tres veces un sólo archivo, aquí el code:

delphi

procedure TForm1.ListaDrop(var Msg : TWMDROPFILES);
var
   Archivos, i : longInt;
   buffer : array[0..MAX_PATH] of char;
begin
   Archivos := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0) ;
   if Archivos < 1 then
   begin
     ShowMessage('You must drop 1 file minimun!') ;
   end
   else
   begin
     DragQueryFile(Msg.Drop, 0, @buffer, sizeof(buffer)) ;
     try
      for i := 0 to Archivos -1 do
       ListBox1.Items.Add(buffer);
     except
       ShowMessage('Unsupported Music file!') ;
     end;
   end;
end;

A ver si me echan una manita.

Saludos.

[escafandra]

Trata así:

delphi

procedure TForm1.ListaDrop(var Msg : TWMDROPFILES);
var
   Archivos, i : longInt;
   buffer : array[0..MAX_PATH] of char;
begin
   Archivos := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0) ;
   if Archivos < 1 then
   begin
     ShowMessage('You must drop 1 file minimun!') ;
   end
   else
   begin
     try
       for i := 0 to Archivos -1 do
       begin
         DragQueryFile(Msg.Drop, i, @buffer, sizeof(buffer)) ;
         ListBox1.Items.Add(buffer);
       end;
     except
       ShowMessage('Unsupported Music file!') ;
     end;
   end;
end;

Saludos.

[enecumene]

Amigo, usted es un master me ha funcionado de perlas .

Saludos.