知识大全 Delphi拖放编程[2]

Posted 2022-07-21 操作

篇首语：知识就是力量，时间就是生命。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi拖放编程[2]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：Delphi拖放编程[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 拖放方法

　　拖放方法有三个

　　●BeginDrag : 人工方式下开始一个拖动

　　●EndDrag : 结束一个拖动

　　●Dragging : 判断一个控件是否正被拖动

　　这三个方法都被源控件使用

　　当DragMode置为dmManual时拖动必须调用控件的BeginDrag方法才能开始 BeginDrag有一个布尔参数Immediate 如果输入参数为True 拖动立即开始光标改变到DragCursor的设置如果输入参数为False 直到用户将光标移动了一定的距离（个象素点）后才改变光标开始拖动这就允许控件接受一个OnClick事件而并不开始拖动操作

　　EndDrag方法中止一个对象的被拖动状态它有一个布尔参数Drop 如果Drop设置为True 被拖动的对象在当前位置放下（能否被接受由目标控件决定）如果Drop设置为False 则拖动就地被取消

　　下面一段程序表明当拖动进入一控制面板时拖动被取消

　　procedure TForm Panel DragOver（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 TForm FormActivate（Sender: TObject）

　　begin

　　CheckBox DragMode := dmAutomatic;

　　end;

　　procedure TForm FormDragOver（Sender Source: TObject; X Y: Integer;

　　State: TDragState; var Accept: Boolean）

　　begin

　　if CheckBox Dragging then

　　Color := clAqua;

　　if CheckBox Dragging then

　　Color := clYellow;

　　if CheckBox Dragging then

　　Color := clLime;

　　end;

　　 开发拖放功能的一般步骤

　　拖放作为Windows提供的一种方便操作对象的功能在Delphi中可以很容易地开发出来根据拖放操作的过程可以把开发步骤划分为四个阶段即

　　● 开始拖动操作

　　● 接收拖动项目

　　● 放下拖动项目

　　● 终止拖动操作

　　在介绍过程中我们将结合一个TabSet（标签集）的拖放操作实例界面设计如图在运行时当用户把一个标签拖动到另一个标签的位置时该标签将移动到该位置并引起标签集的重新布置

　　 开始拖动操作

　　当拖动模式（DragMode）设置为dmAutomatic时用户在源控件上按下鼠标时拖动自动开始当设置为dmManual时通过处理鼠标事件来决定拖动是否开始如果想开始拖动调用BeginDrag方法

cha138/Article/program/Delphi/201311/25214