DELPHI中鼠标的各种操作2009-04-06 17:06{鼠标:右击,左击,单击,双击,滚轮,拖曳}
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}所组合而成的集合,
这些参数值分别代表Shift,Alt,Ctrl键、鼠标的左、中、右键,及同时按下左右键。
例如,同时按下鼠标的右键和Alt键,参数Shift的值就是{ssAlt,ssRight}。
四、鼠标的拖动(细节)
(一)启动拖动状态
拖动状态的方式及启动是根据属性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会被触发。其语法如下: