delphi中拖放程序

======================================================
注：本文源代码点此下载
======================================================

delphi中拖放程序

源控件

1。属性

dragmode :拖动模式

如果dragmode置为dmautomatic,那么当用户在控件上按下鼠标时拖动自动开始;如果dragmode置为dmmanual(这是缺省值),则将通过处理鼠标事件来判断一个拖动是否可以开始;

dragcursor : 拖动光标

dragcursor用于选择拖动时显示的光标,缺省值是crdrag

2.事件

onenddrop :拖动结束时激发

onmousedown 也常用于拖放操作的响应。onmousedown虽然不是一个专门的拖放事件,但在人工模式下拖动的开始是在这一事件的处理过程中实现的(调用方法)

3。方法

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

当dragmode置为dmmanual时,拖动必须调用控件的begindrag方法才能开始。begindrag有一个布尔参数immediate

。如果输入参数为true,拖动立即开始,光标改变到dragcursor的设置。如果输入参数为false,直到用户将光标移动了一定的距离(5个象素点)后才改变光标,开始拖动。这就允许控件接受一个onclick事件而并不开始拖动操作。

enddrag : 结束一个拖动

enddrag方法中止一个对象的被拖动状态。它有一个布尔参数drop。如果drop设置为true,被拖动的对象在当前位置放下(能否被接受由目标控件决定);如果drop设置为false,则拖动就地被取消。

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

目标控件

事件

ondragover:拖动经过时激发

ondragover事件最主要的功能是确定当用户就地放下拖动时控件是否可以接受。它的参数包括:

source : tobject;{源控件}

x,y : integer; {光标位置}

state : tdragstate; {拖动状态}

var accept : boolean {能否接受}

tdragstate是一个枚举类型,表示拖放项目与目标控件的关系。

tdragstate = (dsdragenter, dsdragleave, dsdragmove);

不同取值的意义如表:

━━━━━━━━━━━━━━━━━━━━━━━━━━━

取 值 意 义

───────────────────────────

dsdragenter 拖动对象进入一个允许拖动对象放下的控件中。为缺省状态。

dsdragleave 拖动对象离开一个允许拖动对象放下的控件。

dsdragmove 拖动对象在一个允许拖动对象放下的控件内移动。

━━━━━━━━━━━━━━━━━━━━━━━━━━━

用户可以利用提供的参数来确定放下的拖动是否可被接受,如:

判断源控件类型:

accept := source is tlabel;

判断源控件对象:

accept := (source = tabset1);

判断拖动状态:

if (source is tlabel) and (state = dsdragmove) then

begin

source.dragicon := ' new.ico ';

accept := true;

end

else

accept := false;

当accept=true时,目标控件可以响应ondragdrop事件,用于确定拖动被放下后程序如何进行处理。

ondragdrop:拖动放下时激发,事件处理过程的参数包括源控件和光标位置。这些信息可用于处理方式的确定

开发拖放功能的一般步骤

1.开始拖动(源)

当拖动模式(dragmode)设置为dmautomatic时,用户在源控件上按下鼠标时拖动自动开始;当设置为dmmanual时通过

处理鼠标事件来决定拖动是否开始。如果想开始拖动调用begindrag方法。

2. 接收拖动项目(目标)

一个控件能否接收拖动项目是由该控件的ondragover事件决定的(accept:=true)

3. 放下拖动项目(目标)

当ondragover事件处理过程返回的accept为true且项目被放下时,由ondragdrop事件处理过程来完成拖动放下后的

响应

4.结束拖动操作

结束拖动操作的方式有两种:或者是用户释放了鼠标键或者是程序用enddrag方法强行中止拖动。

结束拖动操作的后果有两种:放下被接受或放下被忽略。

拖动操作结束后源控件都要收到一条消息响应拖动结束事件onenddrag。

本文出自 “风起云涌” 博客,请务必保留此出处http://gzkhrh.blog.51cto.com/30447/187404

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/