如何确定鼠标是在拖动还是单击?

Question

拖动时不会发生click事件啊？
按下的一瞬间会发生 OnMouseDown ，抬起时发生 OnMouseUp
当 OnMouseDown 时，在程序中做一个标记然后再SetCapture(Self{Form}.Handle)
然后 OnMouseOver 事件中判断如果有那个标记即为按下后的移动（拖动）
在 OnMouseUp 时如果有那个标记即为拖动后的抬起，如果没有那个标记即为点击，最后将标记设回，

Answer 1

将你的DragMode设为dmAutomatic，就不会执行了。