//更换窗体或某个控件的光标可以不通过 Screen 对象, 譬如:

begin

  Self.Cursor := crAppStart;

  Panel1.Cursor := crHandPoint;

{光标可选值:

  crDefault     = TCursor(0);

  crNone        = TCursor(-1);

  crArrow       = TCursor(-2);

  crCross       = TCursor(-3);

  crIBeam       = TCursor(-4);

  crSize        = TCursor(-22);

  crSizeNESW    = TCursor(-6);

  crSizeNS      = TCursor(-7);

  crSizeNWSE    = TCursor(-8);

  crSizeWE      = TCursor(-9);

  crUpArrow     = TCursor(-10);

  crHourGlass   = TCursor(-11);

  crDrag        = TCursor(-12);

  crNoDrop      = TCursor(-13);

  crHSplit      = TCursor(-14);

  crVSplit      = TCursor(-15);

  crMultiDrag   = TCursor(-16);

  crSQLWait     = TCursor(-17);

  crNo          = TCursor(-18);

  crAppStart    = TCursor(-19);

  crHelp        = TCursor(-20);

  crHandPoint   = TCursor(-21);

  crSizeAll     = TCursor(-22);

}

//其中 crDefault 是默认光标

end;

---

//使用 Screen 更换光标, 是给本程序的全局更换光标, 譬如:

begin

  Screen.Cursor := crSize;

end;

---

//如果让控件有不同的光标, Screen.Cursor 必须是默认值, 也就是:

Screen.Cursor := crDefault;

---

最新文章

1. C代码编译成可执行程序的过程
2. 主成分分析(PCA)的一种直观理解
3. 颜色线性渐变-CAGradientLayer
4. Windows Services
5. Linux命令之md5sum
6. python and django
7. Daily Scrum – 1/15
8. 【WCF 2】理解WCF框架的简单小实例
9. C++ Code_TabControl
10. js~一个列表中包含上移下移删除等功能
11. DataTable中数据针对某列数据去重
12. 几种常用单片机I/O口线的驱动能力
13. 谈谈如何从Apache官网扒文档
14. ubuntu下安装mongodb
15. Dvna for Owasp top 10 2017
16. WCF服务无法访问DateTime类型的解决方法
17. document.getElementById 和 document.getElementsByClassName获取DOM元素的区别
18. TIPS FOR IMPROVING PERFORMANCE OF KAFKA PRODUCER
19. pytbull 手册
20. 最简单的DHCP服务

热门文章

1. golang 并发执行函数func类型slice
2. 模仿淘宝首页写的高仿页面，脚本全用的原生JS，菜鸟一枚高手看了勿喷哈
3. Java设计模式（12）——结构型模式之门面模式（Facade）
4. 北京Uber优步司机奖励政策（12月23日）
5. 北京Uber优步司机奖励政策（11月30日~12月4日）
6. hdu1176免费馅饼(动态规划，数塔)
7. MySQL☞数值处理函数
8. 互联网行业求职课-教你进入BAT
9. Python-3.6 安装pycrypto 2.6
10. 标注点（Labeled Point）