Delphi TCursor[2] TScreen.Cursor

Delphi TCursor[2] TScreen.Cursor

1、TScreen.Cursor   //在全局级别上控制鼠标光标图像。

?

1	property Cursor: TCursor;

设置光标以替代与单个控件对象关联的光标图像。当光标为crDefault时，各个对象确定光标图像。指定任何其他值将为属于应用程序的所有窗口设置鼠标光标图像。全局鼠标光标图像在屏幕显示之前保持有效抯 游标属性更改回crDefault。

游标可以设置为游标属性中可用的任何游标值。这可以是内置游标值之一，也可以是已添加到游标属性的自定义游标。

注意：对Cursor属性值的更改可能不会立即显示。调用全局应用程序对象的ProcessMessages方法，以允许应用程序响应值已更改的通知。

2、示例：

?

1 2 3 4 5 6 7 8 9 10 11

var   SaveCur:TCursor; Begin   SaveCur := Screen.Cursor;  //记录保存当前的光标   Screen.Cursor := crHourGlass;    { 显示加载光标}   try     {执行相关的操作 }   finally     Screen.Cursor := SaveCur;  { 最后恢复正常 }   end; end;

　　

 

 

 

 

创建时间：2022.05.19　　更新时间：