Delphi程序设计中的鼠标控制.docx资源-CSDN文库

版权申诉

20 浏览量 2022-07-09 15:41:10 上传评论收藏 44KB DOCX 举报

资源推荐

资源详情

资源评论

Delphi 程序设计中的鼠标控制

2008-06-28 20:15

在 Windows 环境下，鼠标和键盘是主要的输入设备。

在 Delphi 中几乎每个对象都具有反映鼠标控制的事件，

这些事件的主要功能包括改变鼠标指针的形状，移动、触发、拖动鼠标等。

鼠标控制的三个相关属性是 Cursor、DragCursor、DragMode；

鼠标(拖拽)控制的三个对象方法是 BeginDrag、Dragging、EndDrag；

鼠标控制的七个事件包括 OnDragDrop 等。

一、改变鼠标指针的形状

改变鼠标指针的形状在 Windows 环境下是不可缺少的功能。

当应用程序在执行一个较长时间的指令或动作时，

我们可以改变鼠标指针的形状来通知用户程序执行的状态，

等到执行的动作完成之后，再把鼠标指针的形状变回来。

此外，在拖动的过程中我们也可以改变鼠标指针的形状，使拖动的过程更加清楚。

在编辑过程中，我们可以用属性 Cursor 和 DragCursor 改变鼠标指针的形状，

前者是记录鼠标指针在对象上出现的情况；后者是设定对象被拖动时鼠标指针的形状。

对于这两个属性， Delphi 提供了如下值供用户选择： cdDefault、crArrow、cdCross、crBeam、

crSize 等十几个属性值。

二、鼠标的移动

鼠标移动时会触发事件 OnMouseMove，语法如下：

procedure ObjectMouseMove(Sender:TObject;Shift:TshiftState;X，Y:Integer)

其中参数 Sender 代表((目标对象))，参数 Shift 代表鼠标移动时需同时按下的组合键，

由{ssShift，ssAlt，ssCtrl，ssRight，ssLeft，ssMiddle，ssDouble}组成。

此外，我们也可以利用参数X 和 Y 取得鼠标移动的坐标位置，通常我们使用 OnMouseMove

事件时，最重要的就是这两个参数。

三、鼠标按键

鼠标按键在窗口环境中也是最重要的输入方法之一，

同时还可以配合 Shift，Alt，Ctrl 三个键而发挥不同的作用。

和鼠标按键有关的事件有 OnMouseDown 和 OnMouseUp。

当用户按下鼠标的一个键后，会触发 OnMouseDown 事件，其语法如下：

procedure ObjectMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X，

Y:Integer);

参数 Button 指出按下的鼠标键是哪一个，可以是{mbLeft，mbRight，mbMiddle}三者之

一。

参数 Shift 可以反映按下的键盘键与鼠标的关系，

其值是由{ssShift，ssAlt，ssCtrl，ssLeft，ssRight，ssMiddle，ssDouble}所组合而成的集

合，

四、鼠标的拖动(细节)

( 一 ) 启动拖动状态

拖动状态的方式及启动是根据属性DragMode 值的设定而决定的，可以分成两类情况：

1．不必程序控制如果 DragMode 的值是 dmAutomatic，当鼠标左键一按，对象就自

动进入拖动状态。

2．需要程序控制如果 DragMode 的值是 dmManual，要使对象进入拖动状态，可以调

用方法 BeginDrag。

此外， Delphi 提供一个对象方法 Dragging，让程序判断对象是否进入拖动状态。

如果返回值是 TRUE，代表已进入拖动状态，否则就是没有。

要使对象进入拖动状态，可以调用对象方法BeginDrag。

当对象进入拖动状态时，事件 OnStartDrag 会被触发，有关语法如下：

对象方法 Dragging 语法如下：

function Dragging:Boolean;

对象方法 BeginDrag 语法如下：

Procedure BeginDrag(Immediate:Boolean);

事件 OnStartDrag 语法如下：

Procedure ObjectStartDrag(Sender:TObject;Var DragObject:TDragObject);

( 二 ) 拖动中的事件

关于对象在拖动状态的事件有两个： OnDragDrop 和 OnDragOver。

假设把对象 A 拖动并放入对象 B 中，此时对象 B 的事件 OnDragDrop 会被触发。其语法如

下：

procedure ObjectDragDrop(Sender，Source:TObject;X，Y:Integer);

参数 Sender 和 Source 分别代表目标对象 B 及被拖动的对象 A，

参数 X ，Y 代表拖动结束时的位置坐标，此坐标是以目标对象的坐标为参考的，

而实际上拖动中的对象并不是真的移动，所以以X，Y 的值将对象移到新的位置。

(三)停止拖动

如果要停止拖动，可以使用对象方法EndDrag 来完成；其语法如下：

procedure ObjectEndDrag(Drop:Boolean);

参数 Drop 若是Ture，被拖动的对象将被放置于与目前所在的位置；

否则，对象的拖动就被放弃，而回到原来的位置。

例如下面的程序段就代表对象 Lable1放弃拖动，并恢复原状：

Lable1.EndDrag(False);

而停止拖动会触发事件 OnEndDrag，其语法如下：

Procedure ObjectEndDrag(Sender，Target:TObject;X，Y:Integer);

不管是放弃拖动或是对象已经拖动到目标对象，均会触发这个事件。

参数 Sender 和 Target 分别指向被拖动对象(源)及目标对象，但是如果拖动没有成功，则Target

值为 nil。

补充：

DELPHI 中拖放的操作

剩余22页未读，继续阅读

评论收藏

内容反馈

版权申诉

Cheng-Dashi

粉丝: 108
资源: 1万+

Delphi程序设计中的鼠标控制.docx

基于51单片机控制交通灯的程序设计 (2).docx

基于Android电子地图应用程序设计 (2).docx

基于单片机的简易软件无线电FSK的程序设计和电路设计.docx

第十三届湖南省大学生计算机程序设计竞赛获奖名单.docx

基于JavaSocket多客户端并发通信聊天程序的设计与实现..docx

微信小程序校园地图设计开发.docx.docx

微程序控制器组与微程序设计实验报告.docx

(完整版)微信小程序毕业设计任务书.docx

微程序控制器的组成与微程序设计实验报告.docx

经期记录与预测WX小程序的设计与实现.docx

基于微信的微商城小程序的设计与实现.docx

实验室管理系统WX小程序的设计与实现.docx

数字电子技术_课程设计报告_电梯控制.docx

校园生活综合服务平台小程序的设计与实现.docx

《基础实验》期末考试试题 综合大作业

2022金蝶云星空插件开发学习文档.zip

“未来工厂”建设导则.pdf

OpenCV4 (4.0.0) 离线文档

activiti中文文档

Imatest 详细教程

150个ChatGPT提示词模板，多种使用方式一网打尽！（完整版）.zip

最全matlab遗传算法工具箱

中文版-SAP S4 MM模块官方标准教材-SAP S4HANA寻源与采购中的业务流程 S4500_ZH_Col12 共154页 2019年编著.pdf

海康Api接口

中兴2017年招聘在线测试综合题及答案解析.pdf

软件项目开发的文档(全套).zip

STM32F103C8T6引脚功能表.pdf

JAVA著名免费框架若依前后端分离项目详细部署文档

Markdown神器 Typora0.9.98 最后的免费版本

最新资源

《基础实验》期末考试试题综合大作业