设置全局级别光标
代码
begin
Screen.Cursor := crHourGlass;
try
//业务处理的代码...
finally
Screen.Cursor := crDefault;
end;
end;
方法
Vcl.Forms.TScreen.Cursor
property Cursor: TCursor;
在全局级别控制鼠标光标图像。
设置 Cursor
以覆盖与单个控制对象关联的光标图像。当 Cursor
为 crDefault 时,单个对象决定光标图像。指定任何其他值会为属于该应用程序的所有窗口设置鼠标光标图像。全局鼠标光标图像将保持有效,直到屏幕的 Cursor
属性更改回 crDefault。
Cursor
可以设置为 Cursors
属性中可用的任何光标值。这可以是内置光标值之一,也可以是已添加到 Cursors
属性中的自定义光标。