Delphi学习手记——改变鼠标形状

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); //当鼠标移动到标签Label1上时改变鼠标形状
begin
    Label1.Font.Color:=clBlue;                                      //设置Label1的字体颜色为蓝色
    Label1.Font.Style:=[fsUnderline];                           //设置Label1的字体带下划线
    Label1.Cursor:=crHandpoint;                                 //设置Label1鼠标形状为手型
end;

procedure TForm1.Label1MouseLeave(Sender: TObject); //当鼠标离开标签Label1时恢复鼠标形状
begin
    Label1.Font.Color:=clWindowText;                        //恢复Label1的字体颜色
    Label1.Font.Style:=[];                                            //恢复Label1的字体（去掉下划线）
    Label1.Cursor:=crDefault;                                     //恢复Label1鼠标形状为默认
end;