TButton(TempCon).OnMouseMove:=FconMouseMove;

  TButton(TempCon).OnMouseUp:=FconMouseUp;

这样做并不会出错，但显得怪怪的，但不理他了，能实现功能就行了。现在加入控件的鼠标事件都将会在这里的三个处理函数中处理了。

最后，将移动点类移动该控件的边缘去。

说得够杂的，各位可以和第二部分的原代码对照着看，这样会更好一些。

再稍微讲一下跳跃式移动或拉动控件的实现，FMoveStep指定跳跃的幅度，MoveX,MoveY:integer;用在移动点类和控件的鼠标事件中，累加鼠标移动的距离，当达到FMoveStep时，就移动控件，或改变控件的大小，然后将MoveX,MoveY变为0，又继续累加，如此循环

至于其他的就没有什么好说的了，各位还是看看源代码吧，也并不是很难理解。代码在第二部分给出。

上一页  [1] [2] [3]