一个超级简单问题
procedure GetFiles(var Mes:TMessage); message WM_DROPFILES;

解释一下，呵呵，谢谢！

[解决办法]
procedure GetFiles(var Mes:TMessage); message WM_DROPFILES;

处理WM_DROPFILES消息

如果给这个控件发一个SendMessage(handle,WM_DROPFILES,0,0);的话
他就会去执行这个过程的代码了!