Delphi程序设计中的鼠标控制
#1 一、改变鼠标指针的形状
改变鼠标指针的形状在Windows环境下是不可缺少的功能。当应用程序在执行一个较长时间的指令或动作时，我们可以改变鼠标指针的形状来通知用户程序执行的状态，等到执行的动作完成之后，再把鼠标指针的形状变回来。此外，在拖动的过程中我们也可以改变鼠标指针的形状，使拖动的过程更加清楚。
在编辑过程中，我们可以用属性Cursor和DragCursor改变鼠标指针的形状，前者是记录鼠标指针在对象上出现的情况；后者是设定对象被拖动时鼠标指针的形状。对于这两个属性，Delphi提供了如下值供用户选择：cdDefault、crArrow、cdCross、crBeam、crSize等十几个属性值。
#1 二、鼠标的移动
鼠标移动时会触发事件OnMouseMove，语法如下：
procedure ObjectMouseMove（Sender:TObject;Shift:TshiftState;X，Y:Integer）
其中参数Sender代表目标对象，参数Shift代表鼠标移动时需同时按下的组合键，由{ssShift，ssAlt，ssCtrl，ssRight，ssLeft，ssMiddle，ssDouble}组成。此外，我们也可以利用参数X和Y取得鼠标移动的坐标位置，通常我们使用OnMouseMove事件时，最重要的就是这两个参数。
#1 三、鼠标按键
鼠标按键在窗口环境中也是最重要的输入方法之一，同时还可以配合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}。
#1 四、鼠标的拖动
（一）启动拖动状态
拖动状态的方式及启动是根据属性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值为null。
对于上述的鼠标操作，我举一个例子。
例如模拟“鼠过留痕”（单击第一下鼠标，鼠标不管移动到哪里都会留下痕迹，单击第二下，就不再留下痕迹）。
unit Unit1;
interface
uses
Windows，Messages，SysUtils，Classes，Graphics，Controls，Forms，Dialogs;
type
TForm1=class（TForm）
procedure FormCreate（Sender:TObject）;
private
{Private declarations}
public
{Public declarations}
end;
var
Form1:TForm1;
implementation
{＄R ＊.DFM}
var
Canvas:TCanvas;
Flag:Boolean;
procedure TForm1.FormCreate（Sender:TObject）;
begin
Flag:=False;
end;
procedure TForm1FormMouseDown（Sender:TObject;Buttom:TMouseButton;Shift:TShiftState;X，Y:Integer）;
begin
if Flag=False Then
begin
Canvas.MouseTO（X，Y）;
Flag:=Ture;
end;
else
Flag:=false;
end;
procedure TForm1FormMouseDown（Sender:TObject;Buttom:TMouseButton;Shift:TShiftState;X，Y:Integer）;
begin
if Flag=Ture Then
begin
Canvas.Pen.Color:=clBlack;
Canvas.LineTO（X，Y）;
end;
end;