可支持文件拖动的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/ 网站下载，同时你也可以下载到这几个组件的源程序！
