处理鼠标状态的方法

atiger

例如，在业务信息的文档中放了一个按钮，然后需要运行一段程序，时间可能会比较长，所以想处理一下鼠标

参考代码如下：
Forms.Screen.Cursor := Business.Forms.Controls.crHourGlass

如果只想实现在鼠标移动到datagrid上才会显示沙漏，那么请使用
dataGrid.Cursor := Business.Forms.Controls.crHourGlass