关于拖放功能?(100分)

A

afcui

Unregistered / Unconfirmed
GUEST, unregistred user!
我通过下面的代码实现了文件拖放功能:<br>&nbsp;private<br>&nbsp; &nbsp; procedure wmdropfiles(var message:tmessage);message wm_dropfiles;<br>问题1:如何防止文件夹也能拖放到窗体上?<br>问题2:如何判断文件是左键还是右键拖过来的?
 
1.用DragQueryFiles判断拖来是不是目录(最简单的是用fileopen打开, 如果不能<br>打开说明是目录).<br>2. WM_DROPFILES只能是通过左键拖来的.
 
呵呵, 是DragQueryFile, 没有s:)<br>还是用GetFileAttributes来判断是否FILE_ATTRIBUTE_DIRECTORY吧:)<br><br>
 
多人接受答案了。
 
DragQueryFile这个api函数我编译时为什么会显示找不到这个函数
 
顶部