uplaylistfrm:
播放列表窗口。很大一部分拖放的代码写在了mainform的Drag_And_Drop_AddFile方法里。
用惯了Delphi封装好的拖放,今天就对Windows拖放的Api熟悉一下。
首先是设置窗体创建参数 TCreateParams 结构。使窗体可以接受WM_DROPFILES 消息。
Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
然后获得拖拽的文件数,然后逐一处理,使用主窗体Drag_And_Drop_AddFile方法,加入
列表中,然后释放拖放中使用的内存。
Drag_N_Drop:
这个单元比较简单,主要就是以下4个api的应用。
DragQueryPoint,DragQueryFile,DragQueryFileW,DragFinish。