9.Delphi拖放编程

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

拖放(dragdrop)是windows提供的一种快捷的操作方式。作为基于windows的开发工具,delphi同样支持拖放操作,而且开发应用系统的拖放功能十分方便,真正体现了delphi的强大功能和方便性。

delphi提供的所有控件(control,即能获得输入焦点的部件)都支持拖放操作,并有相应的拖放属性、拖放事件和拖放方法。下面我们先介绍控件的拖放支持,而后再给出开发拖放操作的一般步骤和应用实例。

9.1 控件的拖放支持

拖放操作中控件可以分为源控件和目标控件两类。绝大部分控件既可以作为源控件也可以作为目标控件。但也有一部分控件只能支持其中的一种。

9.1.1 拖放属性

拖放属性主要有两个:

● dragmode : 拖动模式

● dragcursor : 拖动光标

它们都是在拖放的源控件中设置。dragmode控制用户在运行时间内当在控件上按下鼠标时控件如何反应。如果dragmode置为dmautomatic,那么当用户在控件上按下鼠标时拖动自动开始;如果dragmode置为dmmanual(这是缺省值),则将通过处理鼠标事件来判断一个拖动是否可以开始。

dragcursor用于选择拖动时显示的光标,缺省值是crdrag,一般不要去修改它。在程序设计过程中通用的界面规范应该得到开发者的尊重。但有时候为了特定的目的,开发者也可以把自己设计的光标赋给dragcursor。

9.1.2 拖放事件

拖放事件主要有三个:

●ondragover:拖动经过时激发

●ondragdrop:拖动放下时激发

●onenddrop :拖动结束时激发

前两个事件由目标控件响应,后一个事件由源控件响应。

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

source : tobject;{源控件}

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

state : tdragstate; {拖动状态}

var accept : boolean {能否接受}

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

type

tdragstate = (dsdragenter, dsdragleave, dsdragmove);

不同取值的意义如下表:

表9.1 dragstate 的取值与意义

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

取 值 意 义

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

dsdragenter 拖动对象进入一个允许拖动对象放下

的控件中。为缺省状态。

dsdragleave 拖动对象离开一个允许拖动对象放下

的控件。

dsdragmove 拖动对象在一个允许拖动对象放下的

控件内移动。

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

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

● 判断源控件类型:

accept := source is tlabel;

● 判断源控件对象:

accept := (source = tabset1);

● 判断光标位置:

见(9.2),(9.3)中的例程。

● 判断拖动状态:

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

begin

source.dragicon := ' new.ico ';

accept := true;

end

else

accept := false;

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

ondragdrop事件处理过程的参数包括源控件和光标位置。这些信息可用于处理方式的确定。

onenddrag事件是在拖动操作结束后由源控件来进行响应的,用于源控件进行相应的处理。拖动操作结束既包括拖动放下被接受,也包括用户在一个不能接受放下的控件上释放了鼠标。该事件处理过程的参数包括目标控件(target)和放下位置的坐标。如果target=nil, 表示拖动项目没有被任何控件接受。

在第3节将介绍的文件拖放移动、拖放拷贝操作中,如果操作成功,则文件列表框应更新显示内容。下面这段程序用于实现这一功能。

procedure tfmform.filelistenddrag(sender, target: tobject; x, y: integer);

begin

if target-1) and (dragitem-1) and (droppos-1) and (newpos = 0 then

begindrag(false);

end;

end;

itematpos用来检查当前是否有文件存在。而begindrag方法传递参数false, 允许filelist单独处理鼠标事件而并不开始拖动。事实上这种情况是大量存在的。

2.directoryoutline、drivetabset决定是否能接受拖动的就地放下。

procedure tfmform.directoryoutlinedragover(sender, source: tobject; x,

y: integer; state: tdragstate; var accept: boolean);

begin

if source is tfilelistbox then

accept := true;

end;

procedure tfmform.drivetabsetdragover(sender, source: tobject; x,

y: integer; state: tdragstate; var accept: boolean);

var

proppos: integer;

begin

if source is tfilelistbox then

with drivetabset do

begin

proppos := itematpos(point(x,y));

accept := (proppos > -1) and (proppos'' then

confirmchange('copy',thefilename,currentdirlist[tabindex]);

end;

end;

4.filelist响应拖动结束,更新文件列表

procedure tfmform.filelistenddrag(sender, target: tobject; x, y: integer);

begin

if target <> nil then filelist.update;

end;

到目前为止,我们的文件管理器功能已足够强大。 不过还有许多问题值得读者去进

一步探讨,如:

1.文件与应用程序关联的建立;

2.在文件列表框中显示更多的文件信息;

3.文件列表框中的文件按后缀各排序等。

文件管理器是一个真正的综合例程,对它的钻研会使您更进一步模到delphi编程的精髓。

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