Delphi-改变鼠标的形状

在Delphi程序设计中，鼠标要触发的事件是有很多。有时通过改变鼠标的形状可以更简单分辨所触发的事件。

 1  procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); //当鼠标移动到标签Label1上时改变鼠标形状

 2  begin

 3      Label1.Font.Color:=clBlue;                //设置Label1的字体颜色为蓝色

 4      Label1.Font.Style:=[fsUnderline];        //设置Label1的字体带下划线

 5      Label1.Cursor:=crHandpoint;             //设置Label1鼠标形状为手型

 6  end;

 7  

 8  procedure TForm1.Label1MouseLeave(Sender: TObject); //当鼠标离开标签Label1时恢复鼠标形状

 9  begin

10      Label1.Font.Color:=clWindowText;       //恢复Label1的字体颜色

11      Label1.Font.Style:=[];                //恢复Label1的字体（去掉下划线）

12      Label1.Cursor:=crDefault;           //恢复Label1鼠标形状为默认

13  end;