拖放方法
拖放方法有三个
●BeginDrag : 人工方式下开始一个拖动
●EndDrag : 结束一个拖动
●Dragging : 判断一个控件是否正被拖动
这三个方法都被源控件使用
当DragMode置为dmManual时拖动必须调用控件的BeginDrag方法才能开始BeginDrag有一个布尔参数Immediate如果输入参数为True拖动立即开始光标改变到DragCursor的设置如果输入参数为False直到用户将光标移动了一定的距离（个象素点）后才改变光标开始拖动这就允许控件接受一个OnClick事件而并不开始拖动操作
EndDrag方法中止一个对象的被拖动状态它有一个布尔参数Drop如果Drop设置为True被拖动的对象在当前位置放下（能否被接受由目标控件决定）如果Drop设置为False则拖动就地被取消
下面一段程序表明当拖动进入一控制面板时拖动被取消
procedure TFormPanelDragOver（Sender Source: TObject; X Y: Integer;
State: TDragState; var Accept: Boolean）
begin
Accept := False;
if （Source is TLabel） and （State = dsDragEnter） then
（Source as TLabel）EndDrag（False）
end;
Draging方法判断一个控件是否正被拖动在下面的例子中当用户拖动不同的检查框时窗口改变为不同的颜色
procedure TFormFormActivate（Sender: TObject）
begin
CheckBoxDragMode := dmAutomatic;
CheckBoxDragMode := dmAutomatic;
CheckBoxDragMode := dmAutomatic;
end;
procedure TFormFormDragOver（Sender Source: TObject; X Y: Integer;
State: TDragState; var Accept: Boolean）
begin
if CheckBoxDragging then
Color := clAqua;
if CheckBoxDragging then
Color := clYellow;
if CheckBoxDragging then
Color := clLime;
end;
开发拖放功能的一般步骤
拖放作为Windows提供的一种方便操作对象的功能在Delphi中可以很容易地开发出来根据拖放操作的过程可以把开发步骤划分为四个阶段即
● 开始拖动操作
● 接收拖动项目
● 放下拖动项目
● 终止拖动操作
在介绍过程中我们将结合一个TabSet（标签集）的拖放操作实例界面设计如图在运行时当用户把一个标签拖动到另一个标签的位置时该标签将移动到该位置并引起标签集的重新布置
开始拖动操作
当拖动模式（DragMode）设置为dmAutomatic时用户在源控件上按下鼠标时拖动自动开始当设置为dmManual时通过处理鼠标事件来决定拖动是否开始如果想开始拖动调用BeginDrag方法
[] [] [] []
![DELPHI基础教程：Delphi拖放编程[2]](/UploadFiles/0.jpg)