程序激发拖动事件

Question

一般是用户拖动鼠标的时候才激发拖动事件，现在我想实现由程序来激发：
button1.perform(WM_LBUTTONDOWN, 0, 0);
button1.perform(WM_MOUSEMOVE, 0, 0);
button1.perform(WM_LBUTTONUP, 0, 0);
这么做的时候，可以激发button1的两个事件处理函数：button1.onStartDrag(),button1.onDragEnd(),但是不能激发onDragDrop()和onDragOver()然后我尝试改变lparam和wparam，依然没有起色这里有两个问题请求各位：
1）lparam和wparam对应mousedown,mousemove, mouseup等消息的具体填充方法和格式。比如我要
执行perform(WM_LBUTTONDONW, w, l)那么w和l如何填充？我只知道那个l可以用makelparam填入鼠标位置，其他的就不知道了。
2）用上面的方法可以达到我的目的么？如果不能，应该如何？

Answer 1

我对delphi的事件机制不熟，请多多指点阿

Answer 2

第一个问题：
鼠标消息WParam是一个按键的状态参数：MK_LBUTTON，MK_SHIFT，MK_CONTROL等等。
具体的自己去查http://msdn.microsoft.com/library/default.asp

Answer 3

现在我给wparam和lparam填入了正确的参数，可以仍然不能激发ondragover和ondragdrop事件