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