Delphi - Drag and Drop - Piero Tofy.it

Forum - Delphi - Drag and Drop

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 23:28
Venerdì, 16/07/2010

salve,
ho una listbox o un Tmemo e vorrei che trascinando un file qualsiasi sopra,
mi apparisse dentro uno di questi due oggetti, il percorso del file.

ho anche un Timage e vorrei che trascinandoci sopra un file di immagine
venga caricato subito nel componente.

come devo fare?

Saladino (Member)
Pro

Messaggi: 90
Iscritto: 30/05/2010

Postato alle 12:03
Sabato, 17/07/2010

All'evento OnCreate, o a qualcun'altro, associ :

Codice sorgente - presumibilmente Delphi

dragAcceptFiles( Handle, True ); // permette di accettare file trascinati

Metti questo nella parte private della tua classe form

Codice sorgente - presumibilmente Delphi

private
 
procedure OnDroppedFiles( var Msg : TMessage ); message WM_DROPFILES; // per accettare file trascinati

Poi,

Codice sorgente - presumibilmente Delphi

procedure TForm1.OnDroppedFiles(var Msg: TMessage);
const
   MAXCHARS = 254;
var
   hDroppedFile : tHandle; //è l'identificatore del nostro file
   bFilename : Array[ 0..MAXCHARS ] of char;// il nome del file
   intNFiles : integer;
   intCounter : integer;
   strFilename : String;
begin
 
   strFilename := '';
   hDroppedFile := Msg.wParam;
   intNFiles := dragQueryFile( hDroppedFile, uint(-1),
                               bFilename, MAXCHARS );
      for intCounter := ( intNFiles - 1 ) downto 0 do
      begin
 
         dragQueryFile( hDroppedFile, intCounter,
                        bFilename, MAXCHARS ); //bFileName è il percorso
        ShowMessage(bFileName); 
      end;  
   dragFinish( hDroppedFile );
end;

Ricordati di includere shellapi.

systemgvp (Normal User)
Expert

Messaggi: 296
Iscritto: 14/04/2008

Postato alle 15:07
Sabato, 17/07/2010

grazie, era proprio ciò che serviva a me