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^)/