可支持文件拖动的VCL控件

可支持文件拖动的VCL控件

 

对文件拖动的支持在有些地方特别使用，比如播放软件的播放列表，播放窗口，它们都支持文件的拖动操作，这样就为程序的操作简单化奠定了基础，而我呢，以前也写过如何让程序支持文件拖动的文章，但现在为了使自己的程序更加便于书写，又自己动手写了三个可支持文件拖动的组件TZQDragFilesListBox,TDQDragFilesCheckListBox和TZQDragFilePanel，从它们的名字都可以看出来它的用途了，这几个组件都是继承已有的VCL组件，我只是让其支持文件的拖动罢了，如果想知道是如何实现的，可以去参考我的文章”用程序实现文件的拖动支持”，为了验证我写的这些组件的有效行，我还特别制作了一个可支持文件拖动的简单播放器，程序界面如下：

 

可支持文件拖动的简单播放器

 

以上的这个小程序就使用TZQDragFilesListBox和TZQDragFilePanel这两个组件，你可以直接把MediaPlayer支持的媒体格式文件拖动到播放窗口和播放列表中。以下就是这个程序使用这两个组件的关键语句，如下：

 

//将要播放的媒体文件直接拖到播放窗口就行了

void __fastcall TForm1::ZQDragFilePanel1DragFile(TObject *Sender,

      AnsiString fileName)

{

        //将其添加到播放列表中去

    ZQDragFilesListBox1->Items->Add(fileName);

    playMedia(fileName);

}

//将要播放的媒体文件拖到播放列表中

void __fastcall TForm1::ZQDragFilesListBox1DragFiles(TObject *Sender,

      TStringList *FileNames)

{

    ZQDragFilesListBox1->Items->AddStrings(FileNames);

    if (MediaPlayer1->Wait)

    {

            //播放播放列表中的当前媒体文件

    AnsiString fileName=ZQDragFilesListBox1->Items->Strings[ZQDragFilesListBox1->ItemIndex];

        playMedia(fileName);

    }

}

 

//playMedia函数的定义：

void __fastcall TForm1::playMedia(AnsiString fileName)

{

    //TODO: Add your source code here

    MediaPlayer1->FileName=fileName;

    MediaPlayer1->Open();

//这里要注意设置MediaPlayer的DisplayRect的语句放在了MediaPlayer1->Open()语句

//之后，因为设置MediaPlayer的DisplayRect必须在media device打开后才有效

    MediaPlayer1->DisplayRect=ZQDragFilePanel1->ClientRect;

    MediaPlayer1->Play();

}

 

关于这个程序的源程序你可以到http://www.zccfamily.com/zqget/ 网站下载，同时你也可以下载到这几个组件的源程序！