delphi 拖动操作

  拖动操作的一般步骤:

  (1) 开始拖动操作

  (2) 接收拖动项目

 （3）放下拖动项目

  (4) 终止拖动项目

   一、开始拖动

    拖动模式(DragMode)设置为dmAutomatic时，用户在源控件上按下鼠标时拖动自动开始； 

     设置为dmManual时通过调用BeginDrag方法开始拖动

 二 、接收拖动

     当一个拖动窗体(控件)拖动一接受窗体（控件）上是，触发onDrawOver事件。接受窗件是否接受拖动窗体。在onDragOver事件判定.

    onDragOver事件原型

  type

  TDragOverEvent = procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;

  property OnDragOver: TDragOverEvent;

 参数

Sender 接收窗体。即触发事件的窗体

Source 拖动窗体，即开始拖动的窗体

x,y 屏幕坐标

state: (dsDragEnter, dsDragLeave, dsDragMove) 拖动状态

Accept: 默认为true,为Accept表示，接受拖动，为false 表示不接受拖动