TZQDragFilesListBox组件的实现

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

TZQDragFilesListBox组件的实现

这里主要是TZQDragFilesListBox组件的源码介绍,如果你有兴趣的话可以看一下我是如何实现该组件的。TZQDragFilesListBox组件为了支持文件的拖动提供了DragEnable属性和OnDragFiles事件,程序员可以通过设置DragEnable属性来控制是否允许文件的拖动,如果DragEnable属性为真,程序员就可以在OnDragFiles事件中对拖动的文件进行处理。如:

//以下语句就是简单的将拖动过来的文件名加入ZQDragFilesListBox1列表中。

void __fastcall TForm1::ZQDragFilesListBox1DragFiles(TObject *Sender,

TStringList *FileNames)

{

ZQDragFilesListBox1->Items->AddStrings(FileNames);

}

好了下面就是该组件的源程序,我对其中比较重要的语句做了注释,主要是为了让读者更容易看懂这些代码!

//头文件ZQDragFilesListBox.h

//---------------------------------------------------------------------------

#ifndef ZQDragFilesListBoxH

#define ZQDragFilesListBoxH

//---------------------------------------------------------------------------

#include <SysUtils.hpp>

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

//该语句定义了OnDragFiles 事件的函数原型TDragFilesNotifyEvent

typedef void __fastcall (__closure*TDragFilesNotifyEvent)(System::TObject* Sender,TStringList *FileNames);

//---------------------------------------------------------------------------

class PACKAGE TZQDragFilesListBox : public TListBox

{

private:

//定义了控制是否允许文件拖动的属性

bool FDragEnabled;

TDragFilesNotifyEvent FDragFiles;

void __fastcall SetDragEnabled(bool value);

bool __fastcall GetDragEnabled();

void __fastcall SetDragFiles(TDragFilesNotifyEvent value);

TDragFilesNotifyEvent __fastcall GetDragFiles();

void __fastcall DragFiles(TWMDropFiles & msg);

protected:

//用来处理与文件拖动相关的消息

BEGIN_MESSAGE_MAP

VCL_MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, DragFiles)

END_MESSAGE_MAP(TListBox)

public:

__fastcall TZQDragFilesListBox(TComponent* Owner);

__published:

//定义DragEnabled属性和OnDragFiles事件

__property bool DragEnabled = { read=GetDragEnabled, write=SetDragEnabled };

__property TDragFilesNotifyEvent OnDragFiles = { read=GetDragFiles, write=SetDragFiles };

};

//---------------------------------------------------------------------------

#endif

//ZQDragFilesListBox组件的实现文件ZQDragFilesListBox.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "ZQDragFilesListBox.h"

#pragma package(smart_init)

//---------------------------------------------------------------------------

// ValidCtrCheck is used to assure that the components created do not have

// any pure virtual functions.

//

static inline void ValidCtrCheck(TZQDragFilesListBox *)

{

new TZQDragFilesListBox(NULL);

}

//---------------------------------------------------------------------------

__fastcall TZQDragFilesListBox::TZQDragFilesListBox(TComponent* Owner)

: TListBox(Owner)

{

}

//---------------------------------------------------------------------------

namespace Zqdragfileslistbox

{

//注册该组件

void __fastcall PACKAGE Register()

{

TComponentClass classes[1] = {__classid(TZQDragFilesListBox)};

RegisterComponents("zqComponents", classes, 0);

}

}

//---------------------------------------------------------------------------

void __fastcall TZQDragFilesListBox::SetDragEnabled(bool value)

{

if(FDragEnabled != value) {

FDragEnabled = value;

DragAcceptFiles(Handle,FDragEnabled); //进入接受文件拖拉的状态

}

}

bool __fastcall TZQDragFilesListBox::GetDragEnabled()

{

return FDragEnabled;

}

void __fastcall TZQDragFilesListBox::SetDragFiles(TDragFilesNotifyEvent value)

{

if(FDragFiles != value) {

FDragFiles = value;

}

}

TDragFilesNotifyEvent __fastcall TZQDragFilesListBox::GetDragFiles()

{

return FDragFiles;

}

void __fastcall TZQDragFilesListBox::DragFiles(TWMDropFiles & msg)

{

//TODO: Add your source code here

//取得拖动文件数

int num = DragQueryFile((HDROP)msg.Drop, 0xFFFFFFFF, NULL, 0);

TStringList *FileNames=new TStringList;

for (int i = 0; i < num; i++) {

char buffer[256];

DragQueryFile((HDROP)msg.Drop, i, buffer, sizeof(buffer));

FileNames->Add(AnsiString(buffer));

}

//结束文件的拖动操作

DragFinish((HDROP)msg.Drop);

//调用用户事件代码

if (FDragFiles)

{

FDragFiles(this,FileNames);

}

delete FileNames;

}

以上的代码就实现了文件的拖动,用户只要安装该组件,就可以直接使用该组件了!同时和该组件一起的还有另外的两个组件,TZQDragFilesCheckListBox和TZQDragFilePanel组件,因为它们的实现与该组件相同,我就不一一介绍了,如果这些组件感兴趣的话可以到http://www.zccfamily.com/zqget/ 网站下载这些组件的的源代码!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航