黑马程序员技术交流社区

标题: 【上海校区】Delphi实现文件拖拽 [打印本页]

---

作者: 梦缠绕的时候    时间: 2018-10-16 09:21
标题: 【上海校区】Delphi实现文件拖拽
在uses里引用ShellAPI单元；

在Form的OnCreate事件里添加以下语句：

DragAcceptFiles(Self.Handle, True);
这里Self.Handle可以换成其它控件的句柄，如Self.Memo1.Handle；

然后编写文件拖拽功能要实现的目的：

procedure DragDropFiles(var msg : TWMDropFiles);  // 文件拖拽
message WM_DROPFILES;
下面是事件实现的关键代码：

FileName : array [0..255] of Char;
i, iCount   : Integer;
iCount := DragQueryFile(msg.Drop, $FFFFFFFF, nil, 0);    // 文件数量
DragQueryFile(msg.Drop, i - 1, @FileName, SizeOf(FileName));
DragFinish(msg.Drop);

---------------------
作者：有个家伙喜欢代码
来源：CSDN
原文：https://blog.csdn.net/u012366767 ... 872?utm_source=copy
版权声明：本文为博主原创文章，转载请附上博文链接！

---

作者: 不二晨    时间: 2018-10-16 14:14
奈斯

---

作者: 魔都黑马少年梦    时间: 2018-11-1 16:23

---

欢迎光临 黑马程序员技术交流社区 (http://bbs.itheima.com/)

黑马程序员IT技术论坛 X3.2