Delphi TCursor[2] TScreen.Cursor

Delphi TCursor[2] TScreen.Cursor

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

property Cursor: TCursor;

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

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

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

2、示例：

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

　　

 

 

 

 

创建时间：2022.05.19　　更新时间：