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

D-Nolan

已于 2024-01-07 19:31:09 修改

阅读量840

点赞数 14

分类专栏： Delphi 开箱即用文章标签：开箱即用

于 2023-11-27 23:33:24 首次发布

本文链接：https://blog.csdn.net/gust2013/article/details/134657138

版权

Delphi 开箱即用专栏收录该内容

5 篇文章 0 订阅

订阅专栏

一般的个人小程序几乎都带拖拽功能，因为拖拽太方便了，要知道浏览文件夹的方式去打开文件有多遭罪。
不依赖任何第三方，直接用代码实现。
请添加图片描述
核心代码：

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;