如何判断用MOUSE拖动文件夹或图片等各种对象放入指定的控件里及实现方法？

Question

TO：BCB  大部分是文本类。

Answer 1

dragAcceptFiles();DragQueryFile();DragFinish():
在Form中监控消息WM_DROPFILES！在FormCreate中：DragAcceptFiles(handle,true);
然后在监控消息的过程中处理：
var 
 hDrop:thandle;
 fname:array[0..MAX_PATH] of char;
 num,count:integer;
 names:string;
begin
 hDrop:=msg.WParam;
 num:=dragqueryfile(hdrop,-1,fname,MAX_PATH);
 names:='';
 for count:=1 to num do  //循环列出所有文件名
 begin
  dragqueryfile(hdrop,count,fname,MAX_PATH);
  //fname就是一个文件名，处理即可
  names:=names+#13+fname;  //Names中包含了所有的文件名
 end;
 dragfinish(hdrop);
end;