Forum > Italian

Drag & Drop file

(1/2) > >>

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 :D

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.

Navigation

[0] Message Index

[#] Next page

Go to full version