【Delphi 开箱即用 1】简单实现拖拽文件到窗口

当今，大多数个人小程序都普遍具备拖拽功能，因为拖拽操作极其便捷。毕竟，相比于传统的浏览文件夹方式打开目标文件，拖拽操作简直是一种解放。在这里，我们无需依赖任何第三方控件，单纯通过代码实现拖拽功能。

目录

• 1. 最终效果图
• 2. 部分核心代码
• 3. 完整Demo源码下载

1. 最终效果图

2. 部分核心代码

procedure TForm3.WMDROPFILES(var Message: TWMDROPFILES);
const
  cnmaxfilenamelen = 255;
var
  i, ncount : integer;
  acfilename: array [0 .. 255] of char;
begin
  ncount := dragqueryfile(message.drop, $FFFFFFFF, acfilename, cnmaxfilenamelen);
  for i  := 0 to ncount - 1 do
  begin
    dragqueryfile(message.drop, i, acfilename, cnmaxfilenamelen);
    ListBox1.items.add(acfilename);
  end;
  dragfinish(message.drop);
end;

3. 完整Demo源码下载

来源	链接
本地下载：	拖拽文件Demo.zip