Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

[RESUELTO] Problema con Drag & Drop con más de un archivo a Listbox

Comenzado por enecumene , ene 11 2010 07:12

Por favor identifícate para responder

2 respuestas en este tema

#1 enecumene

Webmaster

Administrador
7.419 mensajes

LocationRepública Dominicana

Escrito 11 enero 2010 - 07:12

Pues esp amigos, tengo problemas con un drag & drop que estoy realizando (eso me pasa por dejar delphi un tiempo ^o|

) 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.

0

Volver arriba

#2 escafandra

Advanced Member

Administrador
4.107 mensajes

LocationMadrid - España

Escrito 12 enero 2010 - 02:15

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;