设置全局级别光标

代码

begin
  Screen.Cursor := crHourGlass;
  try
  
    //业务处理的代码...
    
  finally
    Screen.Cursor := crDefault;
  end;
end;

property Cursor: TCursor;

在全局级别控制鼠标光标图像。

设置 Cursor 以覆盖与单个控制对象关联的光标图像。当 Cursor 为 crDefault 时，单个对象决定光标图像。指定任何其他值会为属于该应用程序的所有窗口设置鼠标光标图像。全局鼠标光标图像将保持有效，直到屏幕的 Cursor 属性更改回 crDefault。

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