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

最新推荐文章于 2024-08-06 17:28:02 发布

大内密探灵灵狗

最新推荐文章于 2024-08-06 17:28:02 发布

阅读量5k

点赞数

分类专栏：程序开发文章标签： delphi integer

本文链接：https://blog.csdn.net/dfyy88/article/details/4643237

版权

程序开发专栏收录该内容

7 篇文章 0 订阅

订阅专栏

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;