Drag & Drop file

[Fabio]

Xinyiman ( orca che nick che hai, mi si intrecciano le dita a scriverlo ), ho visto che hai aperto un thread ( http://www.lazarus.freepascal.org/index.php/topic,10375.msg51244.html#msg51244 ) l'anno scorso per questioni che riguardavano il drag & drop, hai poi risolto qualcosa ?

Io ho un toolino per sistemi Windows fatto a cui non dispiacerebbe la cosa di mangiarsi i nomi dei file solo trascinandoseli sulla pancia invece di usare lo sfoglia ogni volta.

In pratica ho un TListView che popolo dopo aver prima scelto il file con un TOpenDialog, potessi infilarci i file con il Drag&Drop risparmierebbe un 10-12 apri-scegli-clicca ogni volta.

Ho trovato alcune soluzioni in giro che fanno tutte riferimento a codici Delphi ma non sono riuscito ad implementarne nemmeno una e poi mi sono rotto le scatole

Se ci hai già sbattuto il naso una dritta è ben accetta.

[xinyiman]

SI avevo risolto, solo che ora non ho il codice sotto mano. Appena lo trovo tra oggi e domani provvedo ok! Ti faccio poi anche un esempio semplice così lo puoi implementare.

Ciao

[xinyiman]

Eccoti un esempio:

crea un'applicazione nuova con un oggetto Memo che si chiama Memo1 (nome default) e nell'evento OnShow della form immetti questi dati

var
   i: integer;
begin
     Memo1.Clear;
     Memo1.Append('Programma: ' + ParamStr(0));
     Memo1.Append('Numero parametri: ' + IntToStr(ParamCount));
     for I := 1 to ParamCount do
         Memo1.Append('Parametro ' + IntToStr(i) + ': ' +  ParamStr(I));
end;

Poi compili e provi e dimmi se è quello che volevi. Su Win32 funziona, per ora ho fatto test solo su win xp sp3. Fammi sapere!

[Fabio]

Ah spe mi sa non ci siamo capiti, ho poi riletto anche bene il tuo post originale e a te serviva si il D&D ma sopra l'icona dell'applicativo, io intendo a programma avviato trascinare un file sulla finestra del programma e che venga aggiunto automaticamente alla TListView.

[xinyiman]

Mi dispiace, ho fatto delle prove. Ma non sono riuscito, fossi in te proverei a chiedere qui sul forum in inglese. Anche perchè ho fatto delle prove con un evento della form che si chiama FormDropFiles ma non mi lascia trascinare nessun file nemmeno sulla form. Quindi mi sa che è volutamente bloccato. Però tentar non nuoce. Se risolvi fammi sapere come che potrebbe sempre tornarmi utile.

[Fabio]

O mamma che boiata ... io che cercavo le cose assurde e poi era una cagata ...

Creato un nuovo progetto, nel form ho messo la proprietà AllowDropFile a true, e ho attivato l'evento FormDropFiles

Li ritorna l'array di stringhe FileNames con nome e percorso completo del file trascinato sul form

Ci avrò perso penso 2 giorni quando facevo prove e bastavano 7 secondi scarsi

[Shebuka]

O mamma che boiata ... io che cercavo le cose assurde e poi era una cagata ...

Creato un nuovo progetto, nel form ho messo la proprietà AllowDropFile a true, e ho attivato l'evento FormDropFiles

Li ritorna l'array di stringhe FileNames con nome e percorso completo del file trascinato sul form

Ci avrò perso penso 2 giorni quando facevo prove e bastavano 7 secondi scarsi

Se ne era già discusso: http://www.lazarus.freepascal.org/index.php/topic,11041.msg55170.html#msg55170

poi su Mac OS X è un altro discorso: http://web.me.com/macpgmr/ObjP/MacXPlatform_Part8.html#DropFiles

[Fabio]

Questo thread non l'ho visto, si vede che cercando "drag drop file" non usciva, infatti avevo tutti post vecchi mi pareva alquanto strano.

[xinyiman]

Perfetto, può essere molto utile per come argomento per farci un How To.

Bravo