Drag and drop/ListboxRésolu

Question

Bonjour,

Je souhaite faire un drag and drop à partir du dossier ma musique. Je fais glisser ma musique vers une listbox de mon lecteur mp3.
Comment dois-je faire pour que le list box n'accepte que le format mp3 wav et wma? 
Car dans cette list box je peux y déposer toute sorte de fichier?

Merci de votre réponse.
Cordialement.

Dejoul

Caribensila · Accepted Answer

Salut,

Je suppose que tu dois avoir un code qui ressemble à ça :

var
  NombreDeFichiers, size, i : integer;
  NomDuFichierStr : string;
  NomDuFichier : array[0..255] of char;
  Ext : String;

begin
  if Msg.message=WM_DROPFILES then begin
    //listbox1.Items.Clear;
    NombreDeFichiers:= DragQueryFile( Msg.wParam, $FFFFFFFF, NomDuFichier, sizeof(NomDuFichier));// récupération du nombre de fichiers
    for i:=0 to NombreDeFichiers-1 do begin
      size:= DragQueryFile( Msg.wParam, i, NomDuFichier, sizeof(NomDuFichier) );// récupération du nom du fichier
      NomDuFichierStr := NomDuFichier; // tansformation du tableau de char en String
       Ext := ExtractFileExt(NomDuFichierStr);        if ( Ext '.mp3') or ( Ext '.wav') or ( Ext = '.wma') then listbox1.Items.Add(NomDuFichierstr);
      ... // Suite du traitement...
    end;
  end;

Dejoul · Answer

Merci de ta réponse, ca me convient parfaitement!

Codialement

Dejoul

Drag and drop/Listbox

2 réponses

Votre réponse

Discussions similaires