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