Electron开发：Electron 应用中的拖拽 *** 作

如果应用程序需要 *** 作外部文件，通常会使用文件打开对话框选择这个文件，然后交由程序做进一步处理，文件打开对话框会返回一个或多个选择的文件路径。不过更友好的方式皮孙派是将文件拖动到程序的窗口或某一个区域上，然后同样会返回一个或多个文件给应用凯春程序，这种行为称为拖拽 *** 作。

本节将会通过两个案例介绍如何实现 Electron 应用的拖拽 *** 作。

本节将通过一个简单的案例演示如何实现图像文件的拖放 *** 作，本例的主要功能是将一个图像文件拖拽的程序的某个区域，然后在窗口上按等比例显示图像。

下面先看一下本例的效果，首先运行程序，然后找到一燃贺个图像文件，将其拖动到窗口上的红色背景区域，如下图所示。

在Delphi中有许多控件支持拖放 *** 作 但仅限于 应用程序内部 而不能实现从Windows环境里向应用程序拖放文件 本文将信链要介绍的就是如 何用Delphi编写支持文件拖放的应用程序 由于主要使用WindowsAPI函数 因此也可供其 它语言使用者参考

首先要说明的是下面的三个API函数 为通用起见 函数说明使用C语言格式

VOIDDragAcceptFiles(

HWNDhWnd

BOOLfAccept)

DragAcceptFiles函数是用来为拖放文件作初始化 它的第一个参数hWnd指明目标窗体的句柄 第二个参数fAccept是一个布尔型变量 为True时 则hWnd所指向的窗体可以接受拖放的文件

UINTDragQueryFile(

HDROPhDrop

UINTiFile

LPTSTRlpszFile

UINTcch)

DragQueryFile函茄旦数用来查询拖放文件的文件名 其 本身的返回值是一个无符号整数 参数hDrop是一个存放所拖放文件名称的数据结构的句柄 也就是文件名缓冲区的句柄 需要从Windows消息WM_DROPFILES中获得 iFile指明所要查询 文件的序号 它有两种取值方式 值为颤坦扰十六进制数FFFFFFFF时 DragQueryFile的返回值为 所拖放文件的数目值在 到拖放文件总数之间时 DragQueryFile函数将相应序号的文件 名放入参数lpszFile所指向的缓冲区内 若此时lpszFile的值为NULL 则DragQueryFile会返 回相应文件名的长度 参数cch决定缓冲区的长度 由于Windows 支持长文件名 它的值不能 设得太小

VOIDDragFinish(HDROPhDrop)

使用DragFinish函数告诉Windows拖放 *** 作结束 使 其释放文件名缓冲区 它的参数hDrop与DragQueryFiles函数中的一样 也由Windows消息WM_DROPFILES 的hDrop参数获得

下面将结合一个我编写的例子来说明具体的编程 步骤 本例中窗体上放置了一个Memo控件memo 在Windows中选取数个文件拖至程序窗体 放下 则memo 中便会显示所选文件的总数及每个文件的各自名称 程序代码如下:

unitUnit

interface

uses

Windows Messages SysUtils Classes

Graphics Controls Forms Dialogs

StdCtrls

type

TForm =class(TForm)

Memo :TMemo

procedureFormCreate(Sender:TObject)

procedureLabel Click(Sender:TObject)

procedureLabel Click(Sender:TObject)

private

PROCEDUREFinishDropped(Varmsg:TMessage)

MessageWM_DropFiles

{Privatedeclarations}

public

{Publicdeclarations}

end

var

Form :TForm

implementation

usesshellapi

{$R* DFM}

pro   ureTForm FormCreate(Sender:TObject)

begin

//initializethedragprocess

DragAcceptFiles(Handle True)

end

ProcedureTForm FinishDropped(Varmsg:TMessage)

Var

hDrop:THandle

iFile:Uint

lpszFile:pchar

CountOfFiles:integer

FileIndex:integer

ReSults:string

begin

hDrop:=Msg WParam

getmem(pchar )

iFile:=$FFFFFFFF

CountOfFiles:=DragQueryFile(hDrop iFile lpszFile )

ReSults:=

forFileIndex:= CountOfFiles do

begin

iFile:=FileIndex

DragQueryFile(hDrop iFile lpszFile )

//GettheFilename *** yorder

ReSults:=ReSults+# # +lpszFile

end

Dispose(lpszFile)

memo Clear

memo lines add(拖放了+IntToStr

(CountOfFiles)+个文件:+ReSults)

DragFinish(hDrop)

end

end

从以上代码可以看出 首先应该在窗体的OnCreate事 件中用DragAccepteFiles来说明程序窗体支持文件的拖放

另外 除了调用以上 个API函数 在Delphi中还应 编写针对WM_DROPFILES的消息处理过程FinishDropped 截取了WM_DROPFILES 由其wParam 才能够得到文件名缓冲区的句柄

在FinishDropped过程里 有两处DragQueryFile 函数 第一处其iFile参数为$FFFFFFFF 得到拖放文件的总数第二处iFile参数为每个文 件的序号 则可在lpszFile中可得到相应的文件名 当然 为了明显的对比iFile的值对DragQueryFile 函数的影响 这里的代码不够简练 有一点需要注意的是 lpszFile是Pchar型的变量 为了 程序运行安全 它使用前需用getmem过程为其分配内存 使用后再用dispose过程将其释放 在FinishDropped过程的最后 用DragFinish函数释放文件名缓冲区

lishixinzhi/Article/program/Delphi/201311/24695

1.在电脑屏幕上右键点击开始按钮，选择运行的笑孙菜单。

2.接下来腔知在打开的运行窗口救侵著输入Gpedit.msc命令，点击确定按钮运行该命宿瞧令。

3.然后在打开的本地组策略编辑器窗口依次点击用户配置/管理模板/windows组件菜单。

4.接着点击展开菜单中的任务计划程序菜单项。

5.在右侧窗口右键点击禁止拖放低爹设置项，选择编辑的菜单。

6.然后在打开的编辑窗口，选择已禁用选项就可以了。伍升消

---